(1)
#####################
Почему такой результат и как его исправить:?
Мне нужн открыть файл подсчитать строки и запихачить их в хеш,а потом допустим между 3 и 4 вставить другую строкy.. (не пользуясь wc) ! Подскажите как???
заранее благодарен..!

#!/usr/bin/perl -W
my(%hesh,@array);
open FILE, '<', '1.txt'; #где содержит 8 строк
for ($i=0;<FILE>;$i++) {
$hesh{$i} = <FILE>;
}
close FILE;
print keys(%hesh),"\n";
print values(%hesh);
#result:
1302
anonimouse
end;root
syslogd
#1.txt
user
root
admin
anonimouse
ftp
syslogd
proxy
end;
#####################
(2)
Вот еще
#!/usr/bin/perl -W
my($file,@array);
@flist = ("p.txt","p2.txt");
foreach $file (@flist) {
open FILE, '<', $file;
while (<FILE>) {
push @array, $_ unless m/PERL/i;
}
close FILE;
open WFILE, '>', "$file";
print WFILE join "",@array;
close WFILE;
}
#result :
В 1й файл удаляет строку,а со 2го удаляет но добавляет остатки с 1го...
T.е. вот:

p.txt >result:>:
start;
stop;
p2.txt >result:>:
start;
stop; start;
stop;

Как поправить???


Заранее благодарен:)

Код

#!/usr/bin/perl -w use strict; my $file = "$0"; my %hash = (); my $count = 0; # Строка которую нужно записать между 3 и 4 строками my $str = "Эту строку мы вставили между третей и четвёртой"; open(F, "< $file") or die $!; while( chomp($hash{++$count} = <F>) ) {        if ( $count == 3 ) {             $hash{++$count} = $str;        } } close(F); print "Всего строк: $count\n"; # Выводим содержимое файла, с уже вставленной строкой foreach ( sort {$a <=> $b} keys %hash ) {           print "String number: $_  => $hash{$_}\n"; }

Теперь мы имеем хеш, где номер строки это ключь, а сама строка - это значение. Только в данном примере, код открывает сам себя. Просто измени значение переменной $file.
А зачем тебе нужен хеш? Для этой задачи будет достаточно и просто массива.

Код

#!/usr/bin/perl -w use strict; my $file = "$0"; my @full_file = (); # Строка которую нужно записать между 3 и 4 строками my $str = "Эту строку мы вставили между третей и четвёртой"; open(F, "< $file") or die $!; chomp( @full_file = <F> ); close(F); # Вставляем нашу строку в третью позицию splice( @full_file, 2, 0, $str ); print "Всего строк: " . scalar @full_file . "\n"; # Выводим содержимое файла, с уже вставленной строкой print join("\n", @full_file);

Это сообщение отредактировал(а) korob2001 - 23.11.2005, 21:19

zenx