[rlug] Re: script #!/bin/sh

[Emil Perhinschi]

De cateva zile imi rup creieru' cu urmatoarea problema shi nu reushesc sa
o solutzionez (poate's eu prost, dar asta nu e nou :) ).

Fiind un fishier de forma:

1. linia 1
2. linia 2
3. linia 3
...

sa se transforme fishierul asta in formatul:

0. linia 1
1. linia 2
2. linia 3

Ma ajutatzi va rog? Cel putzin mie nu'mi iese.

Shi intrebarea cea mai idioata: sed nu shtie de 's/^c+//' shi forme
echivalente? Ca vad ca in general la '+' uita sa mai interpreteze
patternu'.

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



Emil

---
Pentru dezabonare, trimiteti mail la [EMAIL PROTECTED] cu subiectul 'unsubscribe rlug'.
REGULI, arhive si alte informatii: http://www.lug.ro/mlist/