Nie jesteś zalogowany.
Jeśli nie posiadasz konta, zarejestruj je już teraz! Pozwoli Ci ono w pełni korzystać z naszego serwisu. Spamerom dziękujemy!

Ogłoszenie

Prosimy o pomoc dla małej Julki — przekaż 1% podatku na Fundacji Dzieciom zdazyć z Pomocą.
Więcej informacji na dug.net.pl/pomagamy/.

#1  2020-09-28 11:18:08

  DeWu - Użytkownik

DeWu
Użytkownik
Zarejestrowany: 2013-03-26

[Perl] Ilość lini w pliku

Hej

Chcę stworzyć skrypt w perlu który sprawdzi mi X rekordów z pliku .txt. Jak sprawdzić na samym początku ile tych rekordów jest inaczej, niż obeżdzając ten plik pętlą while? W necie znalazłem coś takiego a chciałbym mieć kod mniej więcej:

Kod:

  open(FD, $plik) 
    my $total = scalar <FD>;
    my $i = 0;
    while(<FD>)
    {
       $i++;
       print ("[".$i."/".$total."] Robię to i tamto\n");
}

Offline

 

#2  2020-09-28 13:34:38

  urbinek - Dzban Naczelny

urbinek
Dzban Naczelny
Skąd: Sosnowiec
Zarejestrowany: 2009-10-01
Serwis

Re: [Perl] Ilość lini w pliku


A w wolnym czasie, robię noże :)
http://nginx.urbinek.eu/_photos/signature.png

Offline

 

#3  2020-09-28 13:35:39

  DeWu - Użytkownik

DeWu
Użytkownik
Zarejestrowany: 2013-03-26

Re: [Perl] Ilość lini w pliku

Próbowałem ale wc -l nie działa na tamtym systemie

Offline

 

#4  2020-09-28 13:47:07

  urbinek - Dzban Naczelny

urbinek
Dzban Naczelny
Skąd: Sosnowiec
Zarejestrowany: 2009-10-01
Serwis

Re: [Perl] Ilość lini w pliku

No ale po za wc tam są podane jeszcze 2 rozwiązania


A w wolnym czasie, robię noże :)
http://nginx.urbinek.eu/_photos/signature.png

Offline

 

#5  2020-09-28 13:47:25

  Jacekalex - Podobno człowiek...;)

Jacekalex
Podobno człowiek...;)
Skąd: /dev/random
Zarejestrowany: 2008-01-07

Re: [Perl] Ilość lini w pliku

Kod:

my $lc = 0;
open my $file, "<", "input" or die($!);
$lc++ while <$file>;
close $file;
print $lc, "\n";

Żródełko:
https://stackoverflow.com/questions/16952088/count- … perl-using-wc

Można też prościej:
https://docstore.mik.ua/orelly/perl4/cook/ch08_03.htm

Ostatnio edytowany przez Jacekalex (2020-09-28 13:50:03)


W demokracji każdy naród ma taką władzę, na jaką zasługuje ;)
Si vis pacem  para bellum  ;)       |       Pozdrawiam :)

Offline

 

Stopka forum

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson
Nas ludzie lubią po prostu, a nie klikając w przyciski ;-)