perl - perl スクリプトを使用してディレクトリからファイルを読み取る

Question

複数のファイルを含むディレクトリがあります。ファイル名は、A11111、A22222、A33333、B11111、B22222、B33333 などです。これらのファイルを読み取り、コンテンツに対して特定の書式設定オプションを実行して、出力ファイルに書き込みたいと考えています。しかし、A で始まるすべてのファイルについては 1 つの出力ファイルだけが必要であり、B で始まるすべてのファイルについては 1 つの出力ファイルが必要です。perlスクリプトでこれを行うことは可能ですか?

Answer 1

次の例は、あなたにとって良い出発点になるはずです。

#!/usr/bin/perl

use strict;
use warnings;

my $dir = '.';

opendir my $dh, $dir or die "Cannot open $dir: $!";
my @files = sort grep { ! -d } readdir $dh;
closedir $dh;

$dir =~ s/\/$//;

foreach my $file (@files) {
  next if $file !~ /^[A-Z](\d)\1{4}$/;

  my $output = substr($file, 0, 1);
  open(my $ih, '<',  "$dir/$file")   or die "Could not open file '$file' $!";
  open(my $oh, '>>', "$dir/$output") or die "Could not open file '$output' $!";

  $_ = <$ih>;
  # perform certain formating with $_ here
  print $oh $_;

  close($ih);
  close($oh);
}

---

行next if $file !~ /^[A-Z](\d)\1{4}$/;で、必要な形式ではないすべてのファイル名をスキップします。最初の文字は大文字、2 番目の文字は数字、残りの 4 文字は最初の数字と同じです。

Answer 2

Linux で作業している場合は、`cat file1 file2 ... > bigfile を使用します

それ以外の場合は、途中で役立つ小さなスクリプトがあります

use strict;
use warnings;

# get the directory from the commandline
# and clean ending /
my $dirname = $ARGV[0];
$dirname =~ s/\/$//;

# get a list of all files in directory; ignore all files beginning with a .
opendir(my $dh, $dirname) || die "can't opendir $dirname: $!";
my @files = grep { /^[^\.]/ && -f "$dirname/$_" } readdir($dh);
closedir $dh;

# loop through the files and write all beginning with 
# A to file A, B to file B, etc. extent the regex to fit your needs 
foreach my $file (@files) {
    if ($file =~ /([AB])\d+/) {
        open(IN,  "< $dirname/$file") or die "cant open $dirname/$file for reading";
        open(OUT, ">> $dirname/$1") or die "cant open $dirname/$1 for appending";
        print OUT <IN>;
        close(OUT);
        close(IN); 
    } else {
        print "$file didn't match\n";
    }
}