Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.16;
Скачать: CL | DM;

Вниз

ПЕРЛ?   Найти похожие ветки 

 
Сергей Кажугетович   (2002-12-28 15:33) [0]

Я только начал изучать Перл и вот возникла проблема. Есть код:

#!/usr/local/bin/perl

open(file, "file.txt") || die "Файл не найден!";
while(<file>)
{
($login) = split(":login");
($pass) = split(":pass");
}
print "$login \n";
print "$pass \n"
close(file);

В файле file.txt информация:
pupkin:login
12345:pass

Цель скрипта заключалась в том, чтобы при его выполнение напечатолось

pupkin
12345

Очевидно, что я сделал что-то неправильно. Не подскажите ли как изменить данный код, чтобы у меня были переменные содержащие текст и цифры, которые были до слов ":login" и ":pass" . Спасибо заранее!


 
McSimm ©   (2002-12-28 15:52) [1]

При каждой итерации происходит присвоение обоим переменным, поэтому правильное значение принимает только переменная из последней строчки файла.

Можно сделать, например, так:
while(<file>)
{
if (/(.+):login/) { $login = $1; }
if (/(.+):pass/) { $pass = $1; }
}


 
Сергей Кажугетович   (2002-12-28 16:19) [2]

Спасибо! Как раз то, что доктор прописал!



Страницы: 1 вся ветка

Текущий архив: 2003.01.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
1-49090
ScableR
2003-01-03 02:56
2003.01.16
Помогите разобраться в вопросе с Delphi & MySQL


3-48912
korvin
2002-12-20 17:03
2003.01.16
DBGrid - передача фокуса в Column...


1-49075
Mark_kms
2003-01-08 12:12
2003.01.16
BDE


14-49304
TTCustomDelphiMaster
2002-12-27 16:07
2003.01.16
А есть еще форумы по Дельфи такие оживленные как этот,


1-49085
John
2003-01-05 01:31
2003.01.16
возв.в степень числа