![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Perlを用いて、数百あるhtmlファイルの一括検索&置換作業がしたいです。
作業としては、
1.webに上がっているhtmlファイルを取得してローカルに保存 (完了)
2.meta系テキストの記述
例:<meta property="og:title" content="" />
3.さきほど保存したファイルの中から、titleタグの中身を取得して変数に格納
例<title>今日の日記</title>の「今日の日記」部分
4.og:titleのcontent要素に格納したデータを記述する
例:<meta property="og:title" content="今日の日記" />
以上です。
現在1は出来ていて、2も一括置換で可能です。3.4のローカルに保存したhtmlファイルの操作で躓いています。
お分かりの方どうぞよろしくお願いします。
No.2ベストアンサー
- 回答日時:
適当。
表示がくずれるので、空白2文字を全角にしていることに注意。use strict;
use warnings;
use autodie;
for my $file (@ARGV) {
my $new_file = $file . '.new';
open my $fh, '<', $file;
open my $new_fh, '>', $new_file;
while ( my $line = <$fh> ) {
if ( $line =~ m{(\s*)<title>(.*)</title>(\s*)$}i ) {
my $title = $2;
print {$new_fh} $1,
qq(<meta property="og:title" content="$title" />), $3;
}
print {$new_fh} $line;
}
close $fh;
close $new_fh;
}
----
perl -w foo.pl foo1.html foo2.html
No.1
- 回答日時:
「htmlファイル」から読み込んで正規表現でマッチさせれば 3 はできると思うんだけどなぁ.... もちろん 3 (と 2) がで
きれば 4 ができるのは当たり前.お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
- HTML・CSS cssが効かなくて困ってます 1 2023/01/01 23:57
- HTML・CSS CSSが上手く反映されないみたいです 2 2022/11/21 16:19
- PHP PHPでCookieを使った訪問回数について 1 2023/05/28 14:10
- HTML・CSS html cssのmargin 5 2022/12/03 11:04
- HTML・CSS HTMLソースの質問 3 2022/07/28 13:29
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- HTML・CSS html/cssで要素が出てこなくて困ってます 1 2022/12/31 16:59
- JavaScript jQueryでのドラッグアンドドロップについて 1 2022/07/07 21:04
- HTML・CSS 書籍を見つつサイト造りの練習をしているのですが、見た目が一致しません 2 2022/11/28 15:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストファイルで提出とは?
-
ファイルをディレクトリ分配の...
-
openした後、closeしないでプロ...
-
perlのプログラミング 部分入れ...
-
Perlのエラーについてご教授く...
-
画像が表示でnull; this.src
-
perlプログラミング 空白行削除
-
Perlで特定文字列から特定文字...
-
ラズベリーパイ初心者です。 ラ...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□...
-
perlでリテラル値はメモリにど...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
-
perlについて
-
perlのrequireの動き方について...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
openした後、closeしないでプロ...
-
テキストファイルで提出とは?
-
INDIRECT 横に再度抽出したい
-
Perlで特定文字列から特定文字...
-
perlをバージョンアップしたら...
-
Wallpaper Engineでおすすめの...
-
arduino の割り込み処理について
-
アルファベットに付いて質問し...
-
Strawberry Perl for Windows ...
-
Perlで時間の計算
-
このファイルを開く方法で困っ...
-
TeraPadエディターの操作方法に...
-
cgiでサーバーにファイルを追加...
-
フローチャート 九九
-
LinuxにおいてのPerlのプログラ...
-
perl 初等プログラミングについて
-
Perlのエラーについてご教授く...
-
こんにちは ブラケッツでプログ...
-
bashスクリプト
-
perlプログラミング 空白行削除
おすすめ情報