我的php代码为reg.php

最近使用SNMP的一个module，结果发现module调用过一次后，继续调用有时会有问题，就想到能否调用一次模块后，卸载模块，重新加载一遍，试过no module，结果是空操作，模块并没有真的卸载， 请问，perl有提供相关的方法吗？

#!/usr/bin/perl use DBI; use DBD::mysql; my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost","root","",{'RaiseError' => 1}); my $sth = $dbh->prepare("SELECT * FROM user"); $sth->execute(); while (my $ref = $sth->fetchrow_hashref()) { print "Found a row: id = $ref->{'user'}, name = $ref->{'host'}\n"; } $sth->finish(); $dbh->disconnect(); 运行结果为: Found a...

查了资料，只找到删除文件，及删除空文件夹的。 没有办法删除非空的文件夹:em02: [ 本帖最后由 不会游泳的人 于 2006-8-22 23:31 编辑 ]

請問各位大大.如何使perl STDOUT出来的文件为压缩文件.Z..也就是如何在输出文件的同时压缩文件? [ 本帖最后由 hyoryeo 于 2009-7-2 11:34 编辑 ]

open FILE, "file.txt"; open OUTPUT, "input.txt"; open append, ">>append.txt"; 请问可以定义可读同时可写的文件句柄吗？

一个log文件，希望输出最后20行，怎么做呢？

我的代码是小骆驼中的习题，目的想把文件中#!所在的行下加入Copyright (C) 20XX by Yours Truly，但是我发现 第三行的代码 ：[code]@content = ; [/code]加在不同位置会有不同效果。 全部代码如下: [code]#!/usr/bin/perl -w open FD1,"; #注意这一行，如放在open FD2,">ex2.pl" ;后面则文件内容全丢失！而这个位置就正常 open FD2,">ex2.pl" ; select FD2; foreach $line ( @content ) { ...

一个500M的log文件,有400多万行, 想从最后30万行开始遍历,有什么办法吗? 用while()是从第一行开始.

rmdir (dirname); 删除空目录函数，dirname为目录名。 $y= ; rmdir ($y); 这样为什么不行，目录下有一个fff文件夹，如果这段程式这样写的话就可以:rmdir (fff); 如果写成这样$y= ;rmdir ($y);却不行，当输入的时候，我输入fff,可目录的fff文件夹还在。怎么回事！