文件操作 - button.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/ImageMagick-perl-6.9.10.68/demo/button.pl
编辑文件内容
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # # Make simple beveled button. # use Image::Magick; $q=Image::Magick->new; $q->Set(size=>'30x106'); $q->Read('gradient:#00f685-#0083f8'); $q->Rotate(-90); $q->Raise('6x6'); $q->Annotate(text=>'Push Me',fill=>'black',gravity=>'Center',pointsize=>18); $q->Write('button.gif'); $q->Write('win:');
修改文件时间
将文件时间修改为当前时间的前一年
删除文件