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!!!
> 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.
--
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/
