On 2010-07-13 01:43:22 +0300, Adrian Sevcenco wrote:
> On 07/11/2010 12:04 PM, Manuel "lonely wolf" Wolfshant wrote:
> >On 07/11/2010 11:43 AM, Adrian Sevcenco wrote:
> >>2. nu merge :D :
> >>[r...@localhost backup]# perl -V
> >>Summary of my perl5 (revision 5 version 10 subversion 1) configuration: ...
> >>
> >>[r...@localhost backup]#> perl -lane '$,=" "; print @F[0..$#F-2]'
> >>rpmlist_10072010_0218.txt
> >>-bash: -lane: command not found
> >>
> >acel ">" ca prim caracter e vazut ca o comanda catre bash de redirectare
> >a stdout catre un fisier numit "perl" in directorul curent. te prinzi
> >acum "de ce nu merge" ?
> da evident, am vazut imediat dupa, dar nu am mai stat sa dau un mail
> de corectie .. oricum comanda nu da decit un sir lung (cit toate
> liniile fisierului) de "nimic"
Nu stiu daca are rost sa mai insist, dar here goes nothing,
am mentionat ca poti specifica FS cu -F:
perl -F- -lane '$,=" "; print @F[0..$#F-2]' <file>
iar daca vrei in output fs '-', il schimbi in sursa:
perl -F- -lane '$,="-"; print @F[0..$#F-2]' <file>
Documentatie detaliata despre toate astea gasesti cu
perldoc perlrun
perldoc perlvar
...
Am trecut peste comentariul usor deplasat cu ficatul, de mai sus, pana la urma
e
treaba ta ce scule iti pui in geanta, care oricum pare goala in momentul de
față.
In trecere, totusi, daca tot suntem aci - si FYI - primii doo'jde ani de unix au
aratat ca in loc sa-ti smulgi parul alergand sa stapanesti multe scule mici,
specializate, combinate peste pipe si io channels, cu crize de epilepsie in
functie de platforma si "mici" detalii de implementare, e parca ceva mai
convenabila varianta unui "tool factory" intre C si shell, trully
cross-platform,
always backwards-compatible. Ce awk am pe masina ? mawk, gawk, bwk, tawk ? Ce
sed ?
Ce shell ? Ce compilator de C ?
"Those days are dead and gone and the eulogy was delivered by Perl" (Rob Pike)
Cam asta era pointul unei solutii alternative, cu perl, dincolo de grijile
fata de
saracul tau ficat. =) Pentru probleme de estetica si aparente, click next. ;)
--
perl -MLWP::Simple -e'print$_[rand(split(q.%%\n.,
get(q{http://cpan.org/misc/japh})))]'
_______________________________________________
RLUG mailing list
[email protected]
http://lists.lug.ro/mailman/listinfo/rlug
