URL: https://linuxfr.org/forums/programmation-perl/posts/perl-debutant-exercice-temp-min-et-heure
Title: Perl débutant: exercice (temp min et heure)
Authors: Eno145
Date: 2022年02月26日T23:15:47+01:00
License: CC By-SA
Tags: perl et programmation
Score: 0
Bonjour,
Je débute en Perl.
Pour un exercice de programmation, je dois pouvoir à partir d'une modification d'un script comme celui-ci indiquer en plus du nombre obtenu une heure (soit seconde valeur):
```perl
use warnings;
use strict; 
use diagnostics;
 my $file = $ARGV[0]; 
open (FICHIER, "<", $file) or die ("Impossible de lire le fichier $ARGV[0]" ); my $minimum= <fichier>;
while (my $ligne =<fichier>)
{ 
if ($ligne< $minimum)
 {
 $minimum = $ligne; 
 } 
}
print ($minimum);
```
Le fichier texte utilisé trie un mot par ligne.
Une ligne = une heure.
Je ne vois pas comme gd débutant comment ajouter un compteur à ma première valeure qui indiquerait donc la position ( ou plus précisément l'heure).
Merci 
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/perl-debutant-exercice-temp-min-et-heure.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/perl-debutant-exercice-temp-min-et-heure.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>