|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Igor Ivlev 2:467/116.9 22 Jun 2001 00:36:22
To : Andrey Kr.
Subject : Данные из файла!
--------------------------------------------------------------------------------
Мои бортовые системы запеленговали, что в 20 июня 2001 19:15, Andrey Kr. писал
All:
AK> Кто знает подскажите как сделать такую штуку:
AK> - открыть файл в котором 2 столбика, разделенных табуляцией, например:
AK> aaa 10
AK> bbb 15
AK> ccc 50
AK> ddd 230
open (FILE, "file.txt");
@file=FILE;
close FILE;
foreach $text(@file){
@needed=split(/\t/, $text);
print "У нас на складе ".$needed[0].", в количестве ".$needed[1]." шт.\n"
}
AK> - вытянуть данные (в массив, хэш, ...), что бы потом можно было их
AK> использовать, например распечатать:
AK> У нас на складе aaa, в количестве 10 шт.
AK> У нас на складе bbb, в количестве 15 шт.
AK> У нас на складе ccc, в количестве 50 шт.
AK> У нас на складе ddd, в количестве 230 шт.
AK> Заранее благодарен.
AK> Андрей.
AK> -+- ifmail v.2.15dev5
AK> + Origin: Ye Binet.com (2:5020/400)
C уважением, Igor Ivlev.
... : silence (Winamp is not active ;-)
--- Утверждено старым, дряхлым Дедом
* Origin: ельзя быть таким рассеянным! (2:467/116.9)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
