Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Вопрос по Перлу 


anod   (2001-12-12 19:42) [0]

Помогите,
как добавлять текст в начало файла.



Дмитрий   (2001-12-13 12:43) [1]

open(<IN>, "a.txt");
my @in = (<IN>);
my @ar = (
"First row",
"Second row"
);
my $str = "Third row";
unshift(@in, $str);
unshift(@in, @ar); #unshift(@in, $str, @ar);
open(<IN>, ">a.txt");
print IN @in;
close(IN);



anod   (2001-12-13 19:59) [2]

2 Дмитрий
Спасибо, а что такое unshift



Kapusto   (2001-12-14 09:36) [3]

shift наоборот :)

unshift ARRAY,LIST
Does the opposite of a shift. Or the opposite of a push, depending on how you look at it. Prepends list to the front of the array, and returns the new number of elements in the array.

unshift(ARGV, "-e") unless $ARGV[0] =~ /^-/;

Note the LIST is prepended whole, not one element at a time, so the prepended elements stay in the same order. Use reverse to do the reverse.


btw, должно быть
open(IN, "a.txt");




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.015 c
1-8940            TAN                   2002-01-18 09:57  2002.02.04  
как поставить курсор в конец строки


1-8902            LoHoVski              2002-01-16 16:42  2002.02.04  
Не компилирует любые пакеты без PAS-файлов ПОМОГИТЕ!


1-8841            xmapa                 2002-01-16 08:49  2002.02.04  
Quick Report: группировка


1-8942            Serghei               2002-01-18 10:02  2002.02.04  
Volume Serial Number для дискеты???


1-8878            Alexm                 2002-01-16 12:52  2002.02.04  
Свертывание окна