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
Re: [Perl] Ilość lini w pliku
nie znam sie na perl, ale próbowałeś https://www.oreilly.com/library/view/perl-cookbook/ … /ch08s03.html ?
A w wolnym czasie, robię noże :)
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
#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