Pe data de S�m 14 Dec 2002 21:17, Emil Perhinschi a scris:
> neaparat in sh? ca in perl e super simplu ...
>
> _____________________________________________________________
> #!/usr/bin/perl -w
>
> $file = $ARGV[0];
> chomp $file;
>
> open (FILE, "$file") or die("nu am putut deschide $file");
>
> while ($line = <FILE>)
> {
> if ($line =~ /^([0-9]+)/) # verifica daca exista un numar la
> inceputul liniei
> { # si il depoziteaza in $1
> (parantezele fac asta)
> $x = $1 - 1 if $1 > 0 ;
> $line =~ s/^$1/$x/g
> }
>
> print $line;
> }
> close FILE;
> ______________________________________________________________
> dupa aceea redirectionezi catre un fisier nou
E vorba de cat de usor iti este sa lucrezi in ceva anume. Mie mi-a fost mai
comod, spre exemplu, sa-l fac in bash.
Asteptam provincia cu varianta in assembler :)
Mihai
---
Pentru dezabonare, trimiteti mail la
[EMAIL PROTECTED] cu subiectul 'unsubscribe rlug'.
REGULI, arhive si alte informatii: http://www.lug.ro/mlist/
