LINUX.ORG.RU
Форум — Development  

[Ниасиляторство][срамота] Помогите со скриптом


0

1

Есть файл со строками строками: 1111 2222 3333 4444 5555 6666

как сделать из них файл с такими сортированными строками: 1111.2222.3333 2222.3333.4444 3333.4444.5555 4444.5555.6666

★★★★★

Последнее исправление: Siado (всего исправлений: 1)
← создание дочерних процессов_
RGB vs BGR →

Есть строки:
1111
2222
3333
4444
5555
6666

как сделать из них:
1111.2222.3333
2222.3333.4444
3333.4444.5555
4444.5555.6666

Siado ★★★★★
() автор топика
Ответ на: комментарий от kyz

Сомневаюсь, что человек знающий эф-шарп будет задавать такие вопросы :)

tensai_cirno ★★★★★
()
Ответ на: комментарий от kyz

>если писать скрипт на эа-шарпе, то ф-я Seq.windowed тебе поможет.

А если писать скрипт на баше? :)

Siado ★★★★★
() автор топика
Ответ на: комментарий от Siado

А если писать скрипт на баше? :)

Если по-быстрому, то где-то так: 

len=$[`cat input.txt | wc -l` - 1]
for ((i=1;i<$len;i++)) do
   awk -v n=$i 'NR==n {getline b; getline c; print $0"."b"."c; exit}' input.txt
done

anonymous
()
Ответ на: комментарий от Siado 
$ perl -lne 'push@t,$_;printf"%s.%s.%s\n",shift@t,@t[0,1]if@t==3' < data.txt
arsi ★★★★★
()
Ответ на: комментарий от redgremlin

>Зачем, если это три строчки на перле?

Кто ж знал )

Siado ★★★★★
() автор топика 
> x <- read.table("file.in")
> x
[1] 1111 2222 3333 4444 5555 6666
> f<-function (my.v,my.col) {sapply(1:my.col, function (n) my.v[(n:(length(my.v)-my.col + n))])}
> f(x,3)
     [,1] [,2] [,3]
[1,] 1111 2222 3333
[2,] 2222 3333 4444
[3,] 3333 4444 5555
[4,] 4444 5555 6666

> y <- f(x,3)

> write.table(sapply(1:4, function (n) paste(y[n,],  collapse=".")), file="/tmp/file.out", quote = FALSE, row.names = FALSE, col.names = FALSE)
> 

1111.2222.3333
2222.3333.4444
3333.4444.5555
4444.5555.6666
file.out (END)
psv1967 ★★★★★
()
Ответ на: комментарий от psv1967

Ахаха, чьерт, спасибо ) Пойду все-таки поучу матчасть про R )

Siado ★★★★★
() автор топика

cat «test... test... test...» | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'

не благодари

anonymous
()
Ответ на: комментарий от anonymous

тема сись^Wсодержимого файла «test... test... test...» не раскрыта, низачёт. и вообще, ты бы ещё предложил однострочник, который запускает, например, «rm -rf /»…

arsi ★★★★★
()

вариант на tcl:
foreach {aa bb cc} [split [exec cat $argv] «\n»] {append dd «$aa.$bb.$cc\n»} ;puts $dd

elipse ★★★
()
Ответ на: комментарий от arsi

> запускать-то хоть пробовал, призёр? ;)

А, точно, последующие строчки удаляются же. Надо еще какой-то параметр присобачить.

anonymous
()
Ответ на: комментарий от anonymous

Это пожалуй еще одна причина, почему не надо просить скрипт на перле )

Siado ★★★★★
() автор топика
Ответ на: комментарий от anonymous

внезапно - gnu-тый sed не обрабатывает \n.

ananas ★★★★★
()

OMG! Development - превращается в «Памагите решить домашнее задание»

shelA ☆
() 
,>,>,>,>,++++++++++++++>
,>,>,>,>,++++++++++++++>
,>,>,>,>,++++++++++++++>
,>,>,>,>,++++++++++++++>
,>,>,>,>,++++++++++++++>
,>,>,>,>++++++++++>
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
.>.>.>.>.>.>.>.>.>.>.>.>.>.
>>>>>>>>>>>>>>>>.
<<<<<<<<<<<<<<<<<<<<<<<<
.>.>.>.>.>.>.>.>.>.>.>.>.>.
>>>>>>>>>>>.
<<<<<<<<<<<<<<
.>.>.>.>.>.>.>.>.>.>.>.>.>.

Проверено тут

fluorite ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← создание дочерних процессов_
Development
RGB vs BGR →