Retourner au contenu associé (entrée de forum : modification de fichier html en masse avec perl)
Posté par Ben le 03 octobre 2008 à 13:52. En réponse au message modification de fichier html en masse avec perl. Évalué à 1.
while ($Line=<InFile>) { if($Line=~ /(.*)<a\ href=\"([^http:\/\/]+\".*)/) { print 1ドル."<a href=\"ssfoo/".2ドル; } }
AltStyle によって変換されたページ (->オリジナル) / アドレス: モード: デフォルト 音声ブラウザ ルビ付き 配色反転 文字拡大 モバイル
# Re: modification de fichier html en masse avec perl
Posté par Ben . En réponse au message modification de fichier html en masse avec perl. Évalué à 1.
Line : chaque ligne de ton fichier...
Infile : ton fichier ouvert.
while ($Line=<InFile>)
{
if($Line=~ /(.*)<a\ href=\"([^http:\/\/]+\".*)/)
{
print 1ドル."<a href=\"ssfoo/".2ドル;
}
}
Je ne suis pas sûr d'optimiser les accès mais bon...