小编Tre*_*ree的帖子

#test-> a.pl

my $file = '/home/joe/test';
if ( -f $file && -l $file )  {
    print readlink( $file ) ;
}

如何获取符号链接文件的绝对路径？

如何判断字符串是否包含单引号(')和双引号(")？

var str = "test'\"";

如何通过SSH在特定的dir中找到存在的文件

例如:host1和dir/home/tree/TEST

Host2: - ssh host1 - 使用bash查找是否存在TEST文件

use DateTime ;

my $date = "2010-08-02 09:10:08";

my $dt = DateTime->now( time_zone => 'local' )->set_time_zone('floating');
print $dt->subtract_datetime($date);

它不起作用; 问题是什么？

错误消息是:

Can't call method "time_zone" without a package or object reference at
/opt/perl/perl5.12/lib/site_perl/5.12.0/x86_64-linux/DateTime.pm line 1338

如何在perl中显示192个字符符号(？)？

我正在尝试使用以下代码创建临时文件:

 use File::Temp  ;
 $tmp = File::Temp->new( TEMPLATE => 'tempXXXXX',
                        DIR => 'mydir',
                        SUFFIX => '.dat');

这是创建临时文件.由于我的权限问题,其他程序无法写入文件.

所以我只想生成文件名而不创建文件.有什么地方可以做到吗？

use strict;
my @array=('f1','f2','f3');
my $dir ='\tmp';
foreach (@array) {
my $FH = $_;
open ("$FH", ">$dir/${FH}.txt") or die $!;
}

foreach (@array) {
 my $FH = $_;
 close($FH);
}

我收到了"Can't use string ("f1") as a symbol ref while "strict refs" in use at bbb.pl line 6."错误.什么是isuse？

我检查了一个文件,temp.pl但现在我想改成temp.

我试过了,cvs rename temp.pl temp但它不起作用.

如何重命名已检入的文件cvs？

@tools = ("hammer", "chisel", "screwdriver", "boltcutter",
           "tape", "punch", "pliers"); 
@fretools =("hammer", "chisel", "screwdriver" ,"blade");

push @tools,@fretools if grep @tools,@fretools

我得到了工具

  @tools=("hammer", "chisel", "screwdriver", "boltcutter", 
       "tape", "punch", "pliers", "blade");

有什么简单的方法吗？

如何查找mysql DB是奴隶而不是通过查询使用"show slave status"？