|
Тема
|
files
|
|
Автор | some (Нерегистриран) |
Публикувано | 19.01.05 10:36 |
|
Здравейте,
малко сум новобранец в перл, и нещо не мога да се оправя с фаиловете. Искам да направя следното нещо:
отварям един фаил, намирам нещо вътре и го изтривам, или пък записвам нещо друго на негово място.
Мерси
| |
|
Здрасти,
и аз не съм нещо в тая работа - но пробвай това по-долу (това е в среда 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"; # пишеш в края на файла
....
| |
|
|
|
|