Dobra. W ten sposob mi nie wychodzi zadanie, wiec probuje w inny.
Wczytuje kolumny z danymi do tablic i kolejno pierwsza kolumne (te z godzinami) dziele wg ':'
Kod:
my @tab1;
my @tab2;
my @time;
open(K, 'plik2.txt');
while (<K>) {
chomp $_;
my $w = $_;
my @div = split(' ', $w);
push ( @tab1, $div[0]);
push ( @tab2, $div[1]);
for (my $i=1; $i<=$#tab1; ++$i){
@podz = split(':',$tab1[$i]);
push (@time, @podz);
}
}
close(K);
Teraz mam pytanie jak zrobic, gdy tab1 jest postaci
12:01:11
12:01:12
12:01:13
By tablica time byla postaci:
120111
120112
120113
Uzylam funkcji join:
Kod:
print join '' , @time, "\n";
ale wartosci wyswietlane sa w jednej linni, tzn. bez przejscia do nowego wiersza.