-
przekazanie zmiennej do pętli
czesc wszystkim mam taki skrypt:
my $counter = 0;
open IN, "/home/reboots_kpi/inputs/$data-TAC-PL-reboot_newtv.csv";
open OUT, ">/home/reboots_kpi/reboots/mac_reboot.csv";
while(<IN>)
{
$counter++;
next if $counter < 0;
my @linia = split(/;/,$_);
print OUT "$linia[0]\n";
}
close IN;
close OUT;
open FILE, "/home/komortom/reboots_kpi/reboots/mac_reboot.csv";
open FILEOUT, ">/home/komortom/reboots_kpi/reboots/result_reboot.csv";
my %count;
while (my $line = <FILE>) {
foreach my $word($line) {
$count{$word}++;
}
}
for my $word (sort keys %count) {
print FILEOUT "$count{$word};$word\n";
}
close FILE;
close FILEOUT;
pierwsza czesc skryptu wybiera z pliku IN pierwsza kolumne a druga czesc skryptu zlicza powtorzenia tzn ile raz powtorzyl sie MAC_adres.
I teraz jak przerobic skrypt zeby nie wczytywac pliku FILE (gdzie sa MAC_adressy) tylko przekazac bezposrednio wynik z OUT, tzn nie zapisywac MAC_adressów do pliku tylko przekazac dalej do czesci co zlicza powtorzenia jako zmienną
probuje petla for ale mi cos nie idzie
Zasady Postowania
- Nie możesz zakładać nowych tematów
- Nie możesz pisać wiadomości
- Nie możesz dodawać załączników
- Nie możesz edytować swoich postów
-
Forum Rules