Chinaunix首页 | 论坛 | 博客
  • 博客访问: 467505
  • 博文数量: 118
  • 博客积分: 4015
  • 博客等级: 上校
  • 技术积分: 1233
  • 用 户 组: 普通用户
  • 注册时间: 2010-11-24 22:11
文章分类

全部博文(118)

文章存档

2013年(5)

2011年(61)

2010年(52)

分类: Python/Ruby

2011-06-14 09:40:18

#!/usr/bin/perl
my $in = $ARGV[0];
open WH , ">$in" or die "$!";
print WH "Hello,world!\n";
close WH or die "$!";
;
unlink $in;

阅读(4503) | 评论(1) | 转发(0) |
给主人留下些什么吧!~~

neobilly2011-06-14 09:56:23

php
unlink($file)