Hej Alla,

Nedanstående kommando anger antalet rader i en fil

perl -le 'print $\u003d\u003d()\u003d<>' <file_name>

Jag vill använda detta kommando inuti en perl manus och lagra
produktionen i en variabel. Hur kan jag göra detta?

Är deras andra metoder för att anta detta?

Tack på förhand
JS

Din kod ger redan det antal linjer till variabeln $ \u003d (som är en riktigt obskyr sak att göra ändå), bara ändra detta till vad variabel du verkligen vill.

Mer allmänt, om du läser en fil till en array, sedan @ array i skalära sammanhang kommer att tala om för dig hur många rader i matrisen. Jag förmodar att ni vill göra något mer med filen än att bara räkna antalet rader i den.

Tack Era.
Egentligen fick jag koden från Internet och brydde sig inte att hitta hur det fungerar (dumt av mig) ..
Jag vill bara lagra antalet rader i en fil i variabeln.

Jag använder för att göra följande i ett shell script (säger 1.sh)
wc-l "sample_file_name"> 1.txt
nej
no_lof_line \u003d `cut-d" "-f1 1.txt"

Jag måste använda samma grundläg här "inuti" en perl script (säger test.pl)
Jag tvivlar fortfarande om koden jag sa i den första tråden fortfarande verk i en perl skript.

my $f = "sample_file_name";
open (F, $f) || die "Could not open $f: $!\n";
my @f = <F>;
close F;
my $lines = @f;

no_lof_line=`wc -l <sample_file_name`

Tack själv en lott Era,

Men kan vi komprimera denna kod?
Och i perl, Dont vi har ett enda kommando för att få linjen räkna?

JS

Med perl -le'...' filnamn du får öppna / stänga dansa gratis. I ett mer komplicerat script, vill du förmodligen inte det. Om du har skriptet inrättas för att läsa filen i fråga kan du hoppa över det öppna / stänga, och helt enkelt göra my @ f \u003d <> som i din ursprungliga one-liner.

Om du redan har filens innehåll i en variabel $ string, då kan du räkna radmatning i det med en enkel $ lines \u003d () \u003d $ string \u003d ~ m / \ n / g - Detta är en kryptisk förkortning för en ganska komplex serie kommandon som återigen skulle ta flera rader i vanlig skrift, oförvrängd form.