![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
この回答へのお礼
お礼日時:2011/08/10 21:37
回答してくださってありがとうございます。
無事に解決することができました。
他の方にも回答していただいていろいろと勉強になりました。
No.4
- 回答日時:
あんまり、かわらんか。
空白2文字を全角空白にしていることに注意。use strict;
use warnings;
my %work = ();
while ( my $line = <DATA> ) {
$line =~ s/\x0D?\x0A?$//;
if ( $line =~ m/([^\s]+)\s+(.+)/ ) {
my ( $key, $val ) = ( $1, $2 );
if ( !exists $work{$key} ) {
# first match
print '>', $key, "f\n>", $val, "\n";
$work{$key} = 1;
}
else {
# second match
print '>', $key, "s\n>", $val, "\n";
delete $work{$key};
}
}
}
__DATA__
A 1234
A 2345
B 3456
B 4567
No.2
- 回答日時:
試してませんが, Perl の方で print は
print ">$mark$suffixes[$. % 2]\n>$number";
とすべきではないかと>#1. 配列 @suffixes の特定の 1要素であるスカラを参照しているので, sigil は @ ではなく $ でしょう.
本題は要件がわからん (「どう変換するのか」がわからん) ので無視.
No.1
- 回答日時:
いろいろ解法ありそうですけど、自分がまっさきに思い浮かんだのは次のやり方です。
・一行ずつ処理
・行番号の偶奇判定によって、fかsか振り分ける
<おまけ>
取り敢えず動いたレベルですが・・・
Perlは見よう見まねなので、自分も添削が欲しいです。
http://ideone.com/ItAlw
http://ideone.com/pogvK
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
openした後、closeしないでプロ...
-
bashスクリプト
-
perlをバージョンアップしたら...
-
テキストファイルで提出とは?
-
Perlで特定文字列から特定文字...
-
英数文字列のうちの数値を4桁に...
-
INDIRECT 横に再度抽出したい
-
Perlのエラーについてご教授く...
-
Perl の外部モジュールの利用方法
-
こんにちは ブラケッツでプログ...
-
結構急ぎです 友達の誕生日に 4...
-
Perl フォルダまでのパスでペー...
-
python 3を使えるようになりたい
-
Perl言語について。
-
ファイルをディレクトリ分配の...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
ファイルアイコンの左下に緑の□...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストファイルで提出とは?
-
Perl言語について。
-
ファイルをディレクトリ分配の...
-
openした後、closeしないでプロ...
-
perlをバージョンアップしたら...
-
Perlのエラーについてご教授く...
-
INDIRECT 横に再度抽出したい
-
画像が表示でnull; this.src
-
Perlで時間の計算
-
アルファベットに付いて質問し...
-
Perlの質問:行と列を入れ替え...
-
Perlで、「が」を、「...
-
このファイルを開く方法で困っ...
-
Perlで特定文字列から特定文字...
-
Strawberry Perl for Windows ...
-
Perlで同じフォルダにある任意...
-
Perl の外部モジュールの利用方法
-
perlのrequireの動き方について...
-
PerlでUTF-8のファイルの文字列...
-
ファイルアイコンの左下に緑の□...
おすすめ情報