продублировать строку

В толксах?
Яззабан!

paste -d ',' input.txt input.txt > output.txt

awk '{ print $0 "," $0 }' infile. txt

Естественно, если рассматривать формат приведенного файла не буквально, то нужно изменить класс символов и/или добавить квантификацию

Visual Studio макросы поддерживает

Иногда, когда не хочется возиться со скриптами, в этом может помочь OOo Calc.

А не запаритесь, если строчек миллионов десять? Да и notepad ваш скорее сдохнет, чем сумеет отобразить такой файл.

    - Выделить текст мышкой
    - Правка -> копировать
    - Напечатать ',' (без кавычек)

Так выделенный текст же замениться на запятую. Не работает.

это опенсорс! где твой патч?

Какой патч, тут налицо принципиальный недостаток by design! Надо бы Поттерингу показать, он сумеет помочь.

Mega-fix-bug.patch

5a6
>     - Нажать клавишу End

Да, пожалуй, это будет лучше всего. Только после «Правка->копировать» нужно добавить ещё «Правка->Вставить», чтобы выделение снять.

$ cat file1 | while read A ; do echo "$A,$A" ; done > file2

file1 - исходный файл, file2 - результирующий

Опередил :3

если уж на то пошло, то

f = File.new('input.txt', 'r+')
f.readlines.each do |l|
        puts l.sub(/(\w+)/, '\1, \1')
end

ruby -pi.bak -e "gsub(/(\S++)/, '\1, \1')" test.txt 

Так?

Надо будет Ruby поизучать.

Я имею в виду, что я сразу рабочий наговнякал, а твое непонятно куда еще прицепить.

ruby -pi.bak -e «sub(/(\p{Any}+)(?=\n)/, '\1, \1')» test.txt

Памагите с регуляркой, эта выглядит, как говно, и наверняка не работает на всем множестве случаев.

Ну если короче, использовать надо так:

cat file.txt | perl -e 'print($_,',',$_) while (<>);' > out.txt

perl -e 'print($_,',',$_) while (<>);' file.txt > out.txt

А регулярку то зачем? Просто читай строку, и дублируй через запятую. Да и в регулярках не силён.

Я удалил, потому что он оставлял только запятые, потому что я забыл скобки:/ И вообще, регулярные выражения в руби медленнее прямой работы со строками, особенно на больших объемах, поэтому я попробую ради интереса сделать без них.

В Ruby нет функции print? Ну на крайняк printf? Как это так?

drBatty, реквестирую решение на sed

Есть, конечно)

$ echo -e 'as\ndf\ngh' |sed -r 's/.+/&,&/'
as,as
df,df
gh,gh

Ну так используй. И, use STDIN Luke

Наверно самое лучшее решение на sed в этом треде

ruby -pi.bak -e 'print($_.chomp,", ")' test.txt

На больших файлах должно быть вроде быстрее, чем с регулярками.

perl -pe'$_.",".$_' <file1 >file2

Да чего уж там...

+[->,----------]<--<[+++++++++++<]>[.>]++++++++++++++++++++++++++++++++++++++++++++.--------------------------------------------<[<]>[.>]

для больших файлов может не сработать

А, это ж для одной строки. Н ладно, мне хватило.

да ладно

$ echo 'a
b
c
d' | sed 's/.*/&,&/'
a,a
b,b
c,c
d,d

тему не читал

Кто сделает? На руби, ясно дело.

давайте уж на C++. Напишем свою либу для работы со строками, чё уж там?

sed 'h;G;s/\n/,/'

такой вариант у меня работает чуть ли не быстрее.

А какая разница? Я увидел скрипт на 4 строчки, поэтому и написал. Не вижу принципиальной разницы)

решительно требую расшифровки

h добавляет найденное в hold buffer, а G добавляет его содержимое к pattern buffer, получается, что нужно только заменить перевод на запятую, так?

C-M-% \(.+\) RET \1,\1 RET !

while (<>) {program} == perl -pe 'program'

Еще немного укоротил. perl -ple 's/(.*)/$1$1\n/' fileName
Perl-golf'a тред.

perl -pe 's/(.*)/$1$1/' testLol Вот финальная версия.

это не будет работать. вот так правильно:

perl -pe's/.*/$&,$&/' <in >out