一、查看系统
root@ubuntu:~# perldoc File::Temp
File::Temp(3) User Contributed Perl Documentation File::Temp(3)
NAME
File::Temp - return name and handle of a temporary file safely
SYNOPSIS
use File::Temp qw/ tempfile tempdir /;
$fh = tempfile();
($fh, $filename) = tempfile();
($fh, $filename) = tempfile( $template, DIR => $dir);
($fh, $filename) = tempfile( $template, SUFFIX => '.dat');
($fh, $filename) = tempfile( $template, TMPDIR => 1 );
binmode( $fh, ":utf8" );
$dir = tempdir( CLEANUP => 1 );
($fh, $filename) = tempfile( DIR => $dir );
二：我的脚本#!/usr/bin/perl
1 use POSIX;
2 use File::Temp;
........
........
53 my ($fh, $tmp_filename) = tempfile() or die "Could not open tmp file\n";
三、运行脚本出错信息
Undefined subroutine &main::tempfile called at tot_stats line 53.
