|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Smolin 2:5020/949 20 Jun 2001 22:25:33
To : Andrey Kr.
Subject : Данные из файла!
--------------------------------------------------------------------------------
Once, 20 Jun 2001 19:15, Andrey Kr. wrote to All:
AK> Кто знает подскажите как сделать такую штуку:
AK> - открыть файл в котором 2 столбика, разделенных табуляцией, например:
AK> - вытянуть данные (в массив, хэш, ...),
=== Cut ===
open( IN, "имя файла" ) || die;
undef $/;
my ( %hash ) = <IN> =~ /^(.*?)\s{2,}(.*)/mg;
print "Hа складе $_, в количестве " . $hash{$_} . " шт.\n" for ( keys %hash );
=== Cut ===
Если табуляция - это на самом деле табуляция, то "\s{2,}" замени на "\t". А
вообще - пойди книжки лучше почитай. Хотя бы "Learning Perl".
Take care.
--- skanking to the rhythm of the music by my side
* Origin: I'm so alone and I feel just like somebody else (2:5020/949)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
