perlでファイルを分割するプログラム - Perl - 教えて！goo

すいません確かに「：」は「；」にしないとエラーです。
実行できる環境がないのであいまいなソースになっちゃってますね（＾＾；

ファイル２以降に保存できていないのは、
たぶん
＞if(/^〓(.+)$/){
の所を
＞if(/^〓(.+)/){
とすれば問題無いかと思います。

通報する

既に修正版の回答がでてますね（＾＾；
一応書いて見たので張るだけはっておきます

$InputFile = ""; # ３Ｍを越えるテキスト

open(FILE, $InputFile);
@vFile = <FILE>;
close(FILE);

@vData = ();
$FileName = "";
foreach(@vFile){
if(/^〓(.+)$/){
if((@vData > 0) and ($FileName ne "")){
open(OUT, ">$FileName");
print OUT @vData;
close(OUT);
@vData = ():
}
$FileName = $1;
}
else{
push @vData, $_;
}
}

通報する

試しに作ってみました。
※スクリプト内の全角スペースは、タブなどに置き換えてください。

# ---- ここから ----
unless ($file = shift) {
　　print "分割するファイル名を入力してください。\n";
　　chomp($file = <>);
　　length $file or exit;
}

open IN, $file or die $!;
while (<IN>) {
　　if (/^〓(.+)/) {
　　　　open OUT, "> $1" or die $!;
　　　　print "$1\n";
　　}
　　else { print OUT }
}
close IN;
print "complete.\n";
# ---- ここまで ----

コマンドラインから、
perl スクリプト名
または
perl スクリプト名 分割するファイル名
とすれば動きます。

ちょっとだけ技術的なことを。
No.3 さんのスクリプトでは、ファイルの読み込みを foreach で行っていますが、これだと最初にファイルを全部読み込んでから処理を始めるため、あまり大きなファイルを処理するのには向きません。
while だと１行ずつ読み込むのでメモリ効率は良いのですが、その分余計に時間がかかったりします。

通報する

　大ボケかましました(^_^;

$first = 1;
open(IN,"<wwwwww");
foreach(<IN>) {
if ( /^〓(.*)/ ) {
if ( $first == 0 ) { close(OUT); }
else { $first = 0; }
$file = $1;
$file =~ s/[\r\n]//;
open(OUT,">$file");
} else {
print OUT $_;
}
}
close(IN);

　こっちが正解です。

通報する

　これでどうでしょう？

$first = 1;
open(IN,"<wwwwww");
foreach(<IN>) {
if ( /^〓(.*)/ ) {
if ( $first == 0 ) { close(OUT); }
else { $first = 0; }
$file = $1;
$file =~ s/[\r\n]//;
open(OUT,">$file");
} else {
print $_;
}
}
close(IN);

　上記プログラムの wwwwww の部分に、３Ｍのファイルの名前を記載します。

通報する

「ある目印」がどういうものなのかが判らないと紹介の仕様がないです。

また、perlの知識が全く無い状態と見受けましたが、
windows上でperlを動作させて文書の分割をなさる場合、
perlをインストールした後
「コマンドプロンプトでスクリプトを実行させる」
「httpdをインストールしてブラウザ上で実行させる」
「perlが動作するサーバにすべてアップロードして、ネットワーク越しに実行する」
と言ういずれかの方法を行う必要があります。

単純にテキストエディタで置換を行ったほうが早いのではないかと思います。

※分割条件が単純なら即興で作ってもかまいませんが…

通報する

　存在しません(^_^;
　簡単に「ある目印」と書かれていますが、その目印はプログラマーの数だけ種類があり、その目印の形によってはプログラム構造自体の変更が必要です。
　読者が欲しい目印の形を先読みしてプログラムを組むのは不可能です。

　どんな目印でしょうか？
　簡単な目印なら、ここにサンプルプログラムを書けるかもしれません。

通報する