Helloやアメリカ合衆国へようこそ！ UNIXおよびLinuxフォーラム！訪問し、当社のグローバルコミュニティに参加いただきありがとうございます。
|
Helloやアメリカ合衆国へようこそ！ UNIXおよびLinuxフォーラム！訪問し、当社のグローバルコミュニティに参加いただきありがとうございます。
|
|
Googleのunix.com
|
|||||||
 |
| シェルプログラミングとスクリプティング KSH 、 CSH 、 shに、 bashの、はPerl 、 PHPは、削除するsed 、 Awkの、他のシェルスクリプトやシェルスクリプト言語についての質問の投稿はこちら。 |
その他のUNIXおよびLinuxフォーラムトピックは参考にすること
|
||||
| スレッド | スレッドスターター | フォーラム | 返信 | 最後の投稿 |
| 特定の行を上記の行を削除する | eltinator | シェルプログラミングとスクリプティング | 3 | 2007年10月11日 02:29午後 |
| txtファイル内の行に移動する | innocentspirit | シェルプログラミングとスクリプティング | 5 | 2007年9月28日 12:04午前 |
| Awkの最善の方法を使用して行を削除するか？ | satnamx | シェルプログラミングとスクリプティング | 3 | 2007年8月29日 07:24午後 |
| 前の行に次の2行の内容を移動する | Amruta Pitkar | シェルプログラミングとスクリプティング | 8 | 2007年4月26日 06:09午前 |
| 行を削除する | ajnabi | シェルプログラミングとスクリプティング | 8 | 2003年5月2日 11:50午前 |
 |
を搭載 
|
|
|
LinkBack | スレッドツール | このスレッドを検索 | スレッドを評価 | 表示モード |
|
|
2007年11月22日
|
||||
|
||||
perlの/を削除するsedを使用して特定の行を削除すると行を移動
やあ、
私は以下の形式でダンプファイルを変換する必要があります： （行番号を簡単に探すことに注意してくださいを提供しています） 元のファイル： 1 2007-10-2482.90いいえ貿易0 0.00 100000.00 2 100000.00 3 0.00 4ホールド 5 2007-10-2589.75購入1114 1114 100000.00 0.00 6 100000.00 7 -0.00 8強い買い 9 2007-10-2692.35の貿易1114 102896.94 0.00 10 102896.94 11 2.90 12強い買い 13 2007-10-2991.20の貿易1114 101615.60 0.00 14 101615.60 15 1.62 16強い買い 17 2007-10-3090.05の貿易1114 100334.26 0.00 18 100334.26 19 0.33 20強い買い 21 2007-10-3188.45の貿易1114 98551.53 0.00 22 98551.53 23 -1.45 24強い買い 25 2007-11-0183.70 1114 0 0.00 93259.05販売 26 93259.05 27 -6.74 28強力な販売 Modifiledファイル： 1 2007-10-2482.90いいえ貿易0 0.00 100000.00ホールド 2 2007-10-2589.75購入1114 1114 100000.00 0.00強い買い 3 2007-10-2692.35の貿易1114 102896.94 0.00強い買い 4 2007-10-2991.20の貿易1114 101615.60 0.00強い買い 5 2007-10-3090.05の貿易1114 100334.26 0.00強い買い 6 2007-10-3188.45の貿易1114 98551.53 0.00強い買い 7 2007-11-0183.70販売1114 0 0.00 93259.05強い販売 つまり、入力ファイルのすべての4行を1行に変換する必要がある-第2回と3行を削除した後です。 1つの perlの これを行うためのスクリプト素晴らしいだろう。 （セッド 私の目的を遂行するも perlの 道高）よろしくお願いいたします。 あなたの助けを待ち！  |
|
2007年11月22日
|
||||
|
||||
|
コード：
awk '{ printf "%s", $0; getline; getline; getline var; printf " %s\n", var }' filename
|
|
2007年11月22日
|
||||
|
||||
|
引用：
コード：
#! /opt/third-party/bin/perl
my $skip = 2;
open(FILE, "<", "a2");
while(<FILE>) {
chomp;
if ( $skip < -1 ) {
$skip = 1;
print $_;
next;
}
print $_ if( $skip == 2 );
print "$_\n" if( $skip == -1 );
$skip--;
}
close(FILE);
|
|
2007年11月22日
|
||||
|
||||
|
awkは
やあ、
これは[ OK ]をする必要があります。 コード： コード：
awk '{
if (NR%4==1)
str=$0
if (NR%4==0)
print NR/4" "str" "$0
}' file
|
|
| ブックマーク |
| スレッドツール | このスレッドを検索 |
| 表示モード | このスレッド |
|
|
ハイブリッドモード
