Добавить перед текстом

Здравствуйте подскажите как добавить текст перед текстом. У меня есть список в txt формате. И после добавления текста получаеться список2.txt.Т.е. есть взяли список spisok1.txt:

надо перед ними поставить слово "пузырь" (например) и чтобы получилось

и все то сохранилось в spisok2.txt Помогите

 

$text = 'test'.$text;

 

А сам бы скриптик?)))

 

Для работы нужен ActivePerl

#!/usr/bin/perl -w

$text = 'Привет'; # слово которое хочешь вставить

open (FILE , "<out.txt"); # файл с текстом
chomp (@pars = <FILE>);
close FILE;

open (FILE2 , ">>pars.txt"); # в какой файл сохранить
while (@pars)
{
$spisok = shift @pars;
print FILE2 "$text $spisok\n";
}
close FILE2;

 

для работы нужен пэхапе

PHP:

$sometext = "пузырь";
$strings = file("text1.txt");
$len = sizeof($strings);
for($i = 0; $i < $len; $i++)
   $strings[$i] = $sometext . $strings[$i];

file_put_contents("text2.txt", $strings);


 

TheSoul

если в его файле тысяча строк, то ты откроешь и закроешь второй файл тысячу раз..

 

мой вариант

Code:

open FILE_IN , "test.txt" or die "$!";
open FILE_OUT, ">spisok.txt" or die "$!";
print FILE_OUT "пузырь ".$_ while(<FILE_IN>);
close FILE_IN;
close FILE_OUT;

 

Вариант на python[2.6.2]:

Code:

#!usr/bin/env python
#-*-encoding:cp1251-*-
with open("spisok1.txt") as inpt:
    with open("spisok2.txt", "a") as out:
        for line in inpt:
            out.write("пузырь{0}".format(line))

 

а в python не надо закрывать открытый файл?

 

Можно простой батничек: