スプリットPerlの

Question

の配列に文字列

my $line = "file1.gz file2.gz file3.gz"; 
my @abc = split('',$line); 
print "@abc\n"; 

予想される出力：

file1.gz 
file2.gz 
file3.gz 

私は出力が$abc[0]でfile1.gzになりたい、file2.gz in $ abcの[1] , and file3.gz in $ abcの[2] ` 。どのように分割するのですか？空白文字で文字列を分割

Answer 1

は非常に簡単である：

print $_, "\n" for split ' ', 'file1.gz file1.gz file3.gz'; 

これは実際splitの特別な形態である（この機能は、通常の代わりに、文字列のパターンをとるように）別の特別な場合として

を、splitは、PATTERNが省略された場合、または 文字列が1つの空白文字で構成されている場合、 コマンドラインツールawkのデフォルト動作をエミュレートします（例えば、' 'または"\x20"）。この場合、EXPRの先頭の空白は、分割が発生する前に削除された であり、/\s+/の場合は、PATTERNが として処理されます。特に、これは、隣接するすべての空白（単一の空白文字だけではない）がセパレータとして使用されることを意味します。私は(?<=...)を使用ここで

my $line = "file1.gzfile1.gzfile3.gz"; 
my @abc = split /(?<=\.gz)/, $line; 
print $_, "\n" for @abc; 

：

おそらく、あなたは.gz延長線上に分割したい：ここ

---

は、（空白のない単純な文字列で）元の質問のための答えです構成はlook-behind assertionであり、基本的には、行内の各点で分割を行い、その後には.gz部分文字列が続きます。

あなたは拡張子の固定セットで作業する場合は、あなたがそれらすべてを含めるようにパターンを拡張することができます：それは今あるとして、あなたは、単に少なくとも一つの空白に基づいて文字列を分割することができ

my $line = "file1.gzfile2.txtfile2.gzfile3.xls"; 
my @exts = ('txt', 'xls', 'gz'); 
my $patt = join '|', map { '(?<=\.' . $_ . ')' } @exts; 
my @abc = split /$patt/, $line; 
print $_, "\n" for @abc; 

Answer 2

$lineを持ちますセパレータ

my @answer = split(' ', $line); # creates an @answer array 

次いで

print("@answer\n");    # print array on one line 

又は

print("$_\n") for (@answer);  # print each element on one line 

私はsplit、printとforため()を使用して好みます。

Answer 3

「\\ s + /」をスプリッターとして使用するだけです。この場合、すべての「余分な」ブランクは削除されました。通常、この特定の動作が必要です。したがって、あなたの場合、それは次のようになります：

my $line = "file1.gz file1.gz file3.gz"; 
my @abc = split(/\s+/, $line); 

for my $i in (@abc) { 
    print "$i\n"; 
} 

Answer 4

これは非常に簡単だとわかりました！

my $line = "file1.gz file2.gz file3.gz"; 

my @abc = ($line =~ /(\w+[.]\w+)/g); 

print $abc[0],"\n"; 
print $abc[1],"\n"; 
print $abc[2],"\n"; 

出力：

file1.gz 
file2.gz 
file3.gz 

ここではPerl regular expressionに詳細を見つけると詳しいマッチングセクションにスクロールし、このチュートリアルを見てみましょう。

Answer 5

こんにちはRahul Reddy、

私が何かを追加するために役立つかもしれないここに別のマイナーなものを追加したいと思いますけれどもあなたはすでに、あなたの質問に複数の回答を持っています。

はあなたが sayを使用することができ、文字列を印刷することも Data::Dumperを使用することができPerlで複雑なデータ構造を表示するには、代わりにそれを手動で行うためのすべての文字列の後に改行文字（ \n）を追加します。

私は通常の（ \s）あなたは（ +）を追加した場合、それは一つ以上の空白（ \s+)と一致しています。あなたがここにそれについて perlreを詳細を読むことができ、（1）空白文字と一致している。

サンプルを使用

コード：。このことができます

#!/usr/bin/perl 
use strict; 
use warnings; 
use Data::Dumper; 
use feature 'say'; 

my $line = "file1.gz file2.gz file3.gz"; 
my @abc = split /\s+/, $line; 
print Dumper \@abc; 
say for (@abc); 

希望、BR