Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 20:14 15.04.21 
Клубове/ Компютри и Интернет / Perl Всички теми Следваща тема Пълен преглед*
Информация за клуба
Тема 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"; # пишеш в края на файла

....



Цялата тема
ТемаАвторПубликувано
* files some   19.01.05 10:36
. * Re: files дядo Mиню   25.01.05 12:53
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2021 Dir.bg Всички права запазени.