On Tue, 2 Aug 2005, Tarhon-Onu Victor wrote:
> On Tue, 2 Aug 2005, [EMAIL PROTECTED] wrote:
>
>> care ar fi echivalentul in perl al scriptului urmator?
>>
>> #!/bin/bash
>> /bin/grep $1 /cale/catre/file1 |/bin/awk -F"|" 'BEGIN{
>> ORS="";RS=""}{print "in:"$11} ' |/bin/tr -d " "
>> /bin/echo ' ' |/bin/tr -d "\n"
>> /bin/grep $1 /cale/catre/file2|/bin/awk -F"|" 'BEGIN{
>> ORS="";RS=""}{printf "out:"$11}' |/bin/tr -d " "
>
> Aloo!! Esti nebun??
> /bin/echo ' ' |/bin/tr -d "\n"
> Bine ca nu ai facut o scula in QT/C++ care sa faca asta, adica
> echo -n ' '
> + multe altele!!!
NU sunt nebun. Si nu l-am facut eu. Eu doar am modificat de unde sa isi ia
datele.
>
>> scriptul se apeleaza cu un parametru, si returneaza
>> in: value out: value
>
> Foarte bine face, cred ca protesteaza in felul lui ca e scris
> total anapodistic, eu n-am mai vazut asa ceva, sau n-am mai vazut atitea
> intr-un script asa de scurt!!
>
> #!/usr/bin/perl
> use strict;
>
> my $pattern=shift(@ARGV);
> my ($fila, $line, $FILA, $tmp);
>
> foreach $fila (@ARGV) {
> if (!open(FILA, "$fila")) {
> print STDERR "Fa-l in C++, baga-ti picioarele: $!\n";
> next;
> }
>
> while ($line=<FILA>) {
> if ($line=~/$pattern/) {
> $tmp=split(/\|/, $line)[10];
> $tmp=~s/\s+//;
> print "in:$tmp\n";
> }
> }
>
> close (FILA);
> print "\n";
> }
>
> print "Sanatate!\n";
>
> Iar scriptul perl va primi n argumente: primul e delimitatorul
> ala pe care-l dadeai pina acum ca argument scriptului bash (numai bash nu e
> ala) si apoi numele de fisiere (pot fi 70 de miliarde, nu doar 2).
>
> Daca are greseli de sintaxa sint sigur ca ai sa te descurci.
Putin probabil. nu stiu perl.
mersi oricum
>
> --
> Any views or opinions presented within this e-mail are solely those of
> the author and do not necessarily represent those of any company, unless
> otherwise expressly stated.
>
> ---
> Detalii despre listele noastre de mail: http://www.lug.ro/
>
>
>
>
>
---
Detalii despre listele noastre de mail: http://www.lug.ro/
