Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Вниз

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

 
Сергей Кажугетович   (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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.008 c
3-48916
oss
2002-12-20 10:32
2003.01.16
ADO


1-49064
Эдик Дятлов
2003-01-08 13:02
2003.01.16
Как приложение разработанное в Делфи 7 открыть в Делфи 5


6-49175
SergeySA
2002-11-15 14:04
2003.01.16
Как запретить доступ к одному IP или группе IP


3-48907
Antah
2002-12-19 21:02
2003.01.16
Как прервать бесконечный цикл?


3-48929
D-NICKNAME
2002-12-21 00:25
2003.01.16
Заполнение базы.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский