> > $LOGFILE=$ARGV[0] ; # Name of the file to be trimmed
>
> Ali ni $ARGV[0] ime, s katerim je bila stvar pognana, v tem primeri
> trimlog.pl? Prvi parameter je $ARGV[1],...Poleg tega mora to bit verjetno
> @ARGV...
$argv[0] je ime programa v Cju.
V perlu je ime programa $0, $ARGV[0] je pa prvi parameter.
> Hja, moj prejsnji primer je bil res cuden, vendar sem se hotel izogniti
> temu...Ali ni v perlu nobene druge poti za izvrsit isto? Verjetno kaksen
> IO::File itd... system() mi ne disi :-]
perldoc -f rename
=item rename OLDNAME,NEWNAME
Changes the name of a file. Returns C<1> for success, C<0> otherwise. Will
not work across file system boundaries.
OK, torej damo tja
rename "$LOGFILE.out", $LOGFILE;
>
> >
> > Ce hoces vrstice pometati ven, bo trim takle:
> >
> > sub trim {
> > $line=shift @_;
> > foreach (@_) {
> > return if $line=~/$_/;
> > }
> > print $_;
> > }
>
> trim klicemo s ($_,@words), pri tem je $_ enak <INFILE>.
Ja, ampak <INFILE> v *skalarnem kontekstu*.
> Kaj se skriva v @_ ?
Vsi parametri po vrsti. Najprej $_, potem $words[0], pa $words[1], pa ...
> $line-u preiredimo @_[0] in le tega zbrisemo (to naredi shift, ne?)
Zbrisemo ga tako, da smo cel array premaknili za eno dol. Torej je
zdaj @_ v bistvu enak @words;
> Hmm...ko premislim...ali so v @_ zdruzeni vsi parametri funkciji?
Ja tako je. Priporocljivo bi bilo prebrat kaksno knjigo o Perlu.
Ali pa vsaj pognati perldoc.
> To je
> malo sitno za parsat, ce jih imas vec, recimo dva arraya neznane
> velikosti...
V tem priumeru se stvari delajo drugace.
> > Dalo bi se narediti se kup drugih izboljsav, ampak to kdaj drugic...
> Hehe, to je moja naloga :-]
Upam, da to ni tvoja _domaca_ naloga.
--
"My name is Not Important. Not to friends.
But you can call me mr. Important" - Not J. Important
[EMAIL PROTECTED]
