|
Тема |
Re: files [re: some] |
|
Автор |
дядo Mиню (новак) |
|
Публикувано | 25.01.05 12:53 |
|
|
Здрасти,
и аз не съм нещо в тая работа - но пробвай това по-долу (това е в среда LINUX - ако искаш при Бил Гейтс - трябва в първия ред да напишеш пътя на perl.exe ):
#!/usr/bin/perl
$stuff="./fcp.txt"; # файла който ще четеш
$fnd ="";
open (STUFF, $stuff) or die $!; # отваряш за четене
while (<STUFF>) { # четеш ред по ред
print "Line number $. is : $_"; # печаташ на екрана четеното
if( /(?:print)/i){ # ако поне един път има "print" /(?: ...
# и не гледаш дали има Upper/lower case
$fnd = $_; # записваш намерения ред в $fnd
}
}
#close (STUFF); # можеш и да пропусвеш
open (FHANDL, ">>$stuff"); # отваряш за append
print "'$fnd"; #
print FHANDL "$fnd"; # пишеш в края на файла
....
|
| |
|
|
|