Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c