perl文件读写追加

bingling711

UID: 42707
帖子: 39
积分: 89
在线时间: 2 小时

1^# bingling711 发表于 2007-06-25 09:41

perl文件读写追加

perl文件读写追加
各位高手请帮忙
文件有如下内容
<link rel="stylesheet" type="text/css" href="css/style-top.css" media="screen,tv">
<link rel="stylesheet" type="text/css" href="css/print-layout.css" media="print">
<link rel="stylesheet" type="text/css" href="css/print-content.css" media="print">
</head>
<body>
<div id="wrapper">
我用perl对这个文件读写,怎么才能在<body>后插入我想要写的内容

fkiori

UID: 16132
帖子: 1
积分: 2
在线时间: 10 分钟

2^# fkiori 发表于 2007-06-25 20:42

方法1. 先把整个文件读入变量，用 split 从 <body>分开，然后把内容放到中间，然后写文件

方法2. 也是先读入变量，然后用正则搜寻到 <body> 插入。

基本上不可能直接在文件及操作，一定要到变量里操作的