はPerlが、私は次のようなテキストファイルを持って最後

Question

まで、特定の行からの読み込み開始し、それだけの行の最初の列を取得する：

Line 1 
Line 2 
Line 3 
Line 4 
Line 5 
filename2.tif;Smpl/Pix & Bits/Smpl are missing. 

常に同じです5行がありますが、 6行目はデータの読み込みを開始する場所です。データを読み込むと、各行（6行目から始まる）はセミコロンで区切られます。私はちょうど各行の最初のエントリを取得する必要があります（6行目から）。例えば

：希望

Line 1 
Line 2 
Line 3 
Line 4 
Line 5 
filename2.tif;Smpl/Pix & Bits/Smpl are missing. 
filename4.tif;Smpl/Pix & Bits/Smpl are missing. 
filename6.tif;Smpl/Pix & Bits/Smpl are missing. 
filename8.tif;Smpl/Pix & Bits/Smpl are missing. 

出力は次のようになります。

filename2.tif 
filename4.tif 
filename6.tif 
filename8.tif 

が可能これは、もしそうなら、私はどこを開始していますか？

Answer 1

これはPerlの自動split」を使用しています（または「awkの）モード：

perl -n -F'/;/' -a -e 'next if $. <= 5; print "$F[0]\n";' < data.file 

見る 'perlrun' と 'perlvar'。

---

あなたはファイルハンドルとスキップする行数を与えられている機能でこれを行う必要がある場合、あなたはPerlの自動split 'モードを使用できなくなります。

sub skip_N_lines_read_column_1 
{ 
    my($fh, $N) = @_; 
    my $i = 0; 
    my @files =(); 
    while (my $line = <$fh>) 
    { 
     next if $i++ < $N; 
     my($file) = split /;/, $line; 
     push @files, $file; 
    } 
    return @files; 
} 

これは、ループを初期化、ラインを分割し、最初の結果を捕捉、その後、それらの最初のNをスキップし、行を読み取ります。 my($file) = split...の行は微妙です。かっこは、分割がリスト・コンテキストを持つことを意味します。したがって、値のカウントではなく値のリストを生成し、最初の変数を変数に割り当てます。かっこが省略されている場合は、リスト演算子にスカラーコンテキストを提供するので、分割出力のフィールド数は$fileに割り当てられます。これは必要なものではありません。ファイル名が配列の末尾に追加され、配列が返されます。コードはファイルハンドルを開かなかったので、ファイルハンドルを閉じません。別のインタフェースは、ファイル名（オープンファイルハンドルではなく）を関数に渡します。関数内でファイルを開いたり閉じたりすると、エラー処理が心配です。その後、

そして、あなたがファイルを開くとヘルプが必要な場合など、：

use Carp; 

sub open_skip_read 
{ 
    my($name) = @_; 
    open my $fh, '<', $name or croak "Failed to open file $name ($!)"; 
    my @list = skip_N_lines_read_column_1($fh, 5); 
    close $fh or croak "Failed to close file $name ($!)"; 
    return @list; 
} 

Answer 2

醜いですが、ダミーラインを読み出して分割します。残りの人たちのために。

my $logfile = '/path/to/logfile.txt'; 

open(FILE, $logfile) || die "Couldn't open $logfile: $!\n"; 

for (my $i = 0 ; $i < 5 ; $i++) { 
    my $dummy = <FILE>; 
} 

while (<FILE>) { 
    my (@fields) = split /;/; 
    print $fields[0], "\n"; 
} 

close(FILE); 

Answer 3

#!/usr/bin/env perl 
# 
# name_of_program - what the program does as brief one-liner 
# 
# Your Name <your_email@your_host.TLA> 
# Date program written/released 
################################################################# 

use 5.10.0; 

use utf8; 
use strict; 
use autodie; 
use warnings FATAL => "all"; 

# ⚠ change to agree with your input: ↓ 
use open ":std" => IN => ":encoding(ISO-8859-1)", 
        OUT => ":utf8"; 
# ⚠ change for your output: ↑ — *maybe*, but leaving as UTF-8 is sometimes better 

END {close STDOUT} 

our $VERSION = 1.0; 

$| = 1; 

if (@ARGV == 0 && -t STDIN) { 
    warn "reading stdin from keyboard for want of file args or pipe"; 
} 

while (<>) { 
    next if 1 .. 5; 
    my $initial_field = /^([^;]+)/ ? $1 : next; 
    # ╔═══════════════════════════╗ 
    # ☞ your processing goes here ☜ 
    # ╚═══════════════════════════╝ 
} continue { 
    close ARGV if eof; 
} 

__END__