1

私がやろうとしているのは、すべてのUTF16Unicodeチャートのコレクションを取得することです。http://unicode.org/charts/PDF/からすべてのpdfファイルをダウンロードし、perlを使用して、次のスクリプトを使用してすべての特殊チャートまたはUTF32チャートを削除することにしました。

#!/usr/bin/perl

opendir(my $dir, ".");
my @files = grep {!/^U[0-9,A-F]{4}\.pdf/ && !/utf16only.pl/} readdir($dir);
for $f (@files)
{
    print "deleting $f...\n";
    #unlink $f;
}
closedir($dir);

スクリプトを実行すると、次の出力が得られます。

C:\Users\Evan\Downloads\Unicode 6.1 Charts>utf16only.pl
deleting ....
deleting .....
deleting 10FF80.pdf...
deleting ErrorLink.pdf...
deleting U10000.pdf...
deleting U100000.pdf...
deleting U10080.pdf...
deleting U10100.pdf...
deleting U10140.pdf...
deleting U10190.pdf...
deleting U101D0.pdf...
deleting U10280.pdf...
deleting U102A0.pdf...
deleting U10300.pdf...
deleting U10330.pdf...
deleting U10380.pdf...
deleting U103A0.pdf...
deleting U10400.pdf...
deleting U10450.pdf...
deleting U10480.pdf...
deleting U10800.pdf...
deleting U10840.pdf...
deleting U10900.pdf...
deleting U10920.pdf...
deleting U10980.pdf...
deleting U109A0.pdf...
deleting U10A00.pdf...
deleting U10A60.pdf...
deleting U10B00.pdf...
deleting U10B40.pdf...
deleting U10B60.pdf...
deleting U10C00.pdf...
deleting U10E60.pdf...
deleting U10FF80.pdf...
deleting U11000.pdf...
deleting U11080.pdf...
deleting U110D0.pdf...
deleting U11100.pdf...
deleting U11180.pdf...
deleting U11680.pdf...
deleting U12000.pdf...
deleting U12400.pdf...
deleting U13000.pdf...
deleting U16800.pdf...
deleting U16F00.pdf...
deleting U1B000.pdf...
deleting U1D000.pdf...
deleting U1D100.pdf...
deleting U1D200.pdf...
deleting U1D300.pdf...
deleting U1D360.pdf...
deleting U1D400.pdf...
deleting U1EE00.pdf...
deleting U1F000.pdf...
deleting U1F030.pdf...
deleting U1F0A0.pdf...
deleting U1F100.pdf...
deleting U1F200.pdf...
deleting U1F300.pdf...
deleting U1F600.pdf...
deleting U1F680.pdf...
deleting U1F700.pdf...
deleting U1FF80.pdf...
deleting U20000.pdf...
deleting U2A700.pdf...
deleting U2B740.pdf...
deleting U2F800.pdf...
deleting U2FF80.pdf...
deleting U3FF80.pdf...
deleting U4FF80.pdf...
deleting U5FF80.pdf...
deleting U6FF80.pdf...
deleting U7FF80.pdf...
deleting U8FF80.pdf...
deleting U9FF80.pdf...
deleting UAFF80.pdf...
deleting UBFF80.pdf...
deleting UBOOP.pdf...
deleting UCFF80.pdf...
deleting UDFF80.pdf...
deleting UE0000.pdf...
deleting UE0100.pdf...
deleting UEFF80.pdf...
deleting UF0000.pdf...
deleting UFFF80.pdf...

最初の2行はまだ残っています.そして..、私はリンクを解除しようとしているので.、削除したくない多数のファイルを削除していると思います。問題が私のregex、、、またはにあるのかどうかはわかりませんが、grep必要readdir以上unlinkに多くのファイルが削除されています。

4

2 に答える 2

6

この行：

grep {!/^U[0-9,A-F]{4}\.pdf/ && !/utf16only.pl/}

どちらの正規表現にも一致しないファイルのみが含まれます。これにはとが含まれ.ます..。これら2つを除外するには、次のように拡張する必要があります。

grep {!/^U[0-9,A-F]{4}\.pdf/ && !/utf16only.pl/ && !/^\.{1,2}$/}
于 2012-03-09T06:33:40.697 に答える
5

それはあなたの正規表現です：

grep {!/^U[0-9,A-F]{4}\.pdf/ && !/utf16only.pl/} readdir($dir);

これは、「一致しない すべてのファイルに一致しますU[0-9,A-F]{4}.pdf（注-本当にそのコンマが必要ですか？）、また一致しませんutf16only.pl。

.と..はU[0-9A-F]{4} .pdfと一致せず、一致しないため、utf16only.plこれらも削除されます。

にを追加し!/^\./て、grepこれらのファイルも削除リストから除外します。

grep {!/^U[0-9A-F]{4}\.pdf/ && !/^\./ && !/utf16only.pl/} readdir($dir);

注-ファイル名にカンマが含まれるとは思わないため、をに変更しました[0-9,A-F]。[0-9A-F]

于 2012-03-09T06:34:42.873 に答える