id:fbisさんにアドバイスもらったので調べてみる。File::Find::Ruleっていうのは標準モジュールじゃないらしく手元のクイックリファレンスに載っていない。とりあえず後回しにしてFile::Findを試してみる。ActivePerlのリファレンスを読んでもよくわからん。クイックリファレンスでもわからないから英語だからって話じゃない。Findっていうくらいなので条件にあうファイルを集めてくるような動作をイメージしていた。んでグーグル先生の御神託でひねり出したのがこんなコード。 # sample of File::Find use strict; use File::Find; our @wantedFiles; find(\&wanted, $ARGV[0]); for (@wantedFiles) { print "Delete $_\n" if /~$/; } sub wan
こんばんは。Perl超初心者です(プログラミングの初心者でもあります)。 フォルダ内にあるすべてのファイルに対して、正規表現を使った文字列置換をしたいのですが、うまくいきません。アドヴァイスをいただけないでしょうか。 具体的には、あるファルダの中に100個程のファイルがあって、その中の改行が3回連続している部分を、「改行+[SAMPLE]+改行」に置換をしたいと表います。 Windows XP Professional SP3 / ActivePerl 5.10 の環境で、以下のように記述したのですが、「Missing $ on loop variable at insert.pl line 5.」とエラーになってしまいます。どこで、間違ったのでしょうか(というか、まるでダメなスクリプトかもしれませんが…)。 use strict; use warnings; my @filename =
mをsにしたら結構サクッと置き換えもできちゃった。 てへっ。 #!/usr/bin/perl # # 複数行の置き換えを行うスクリプト-2 # 2011.10.29_scripted by perl48 use strict; use warnings; my $multiple_data; foreach my $data (<DATA>) { $multiple_data .= $data } #print $multiple_data; # <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">.<?php をマッチさせる # htmlはスラッシュが多いので、s#pattern#pattern2#s
NAME SYNOPSIS DESCRIPTION 概要 表示可能なオブジェクト その他のオブジェクト PDFJのインストール PDFJの使用 文書オブジェクトの作成 ページオブジェクトの作成 フォントオブジェクトの作成 テキストオブジェクトの作成 テキストオブジェクトの入れ子による部分スタイル指定 イタリックとボールド 段落オブジェクトの作成 段落オブジェクトの分割 空白オブジェクトとグルー ブロックオブジェクトの作成 配列ブロック内オブジェクトの間隔とタイプ名 ブロックオブジェクトの分割 画像オブジェクトの作成 図形オブジェクトの作成 追加の図形オブジェクトメソッド 色オブジェクトの作成 表示可能オブジェクトのページへの配置 ページのレイヤ ミニページオブジェクトの作成 スタイルのコピー スタイル指定のさまざまな方法 PDF文書の出力 文書情報の追加 アウトライン ハイパーリンク 暗号
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く