文件操作 - settings.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/ImageMagick-perl-6.9.10.68/demo/settings.pl
编辑文件内容
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # # An example of applying many settings in preparation for image creation. # # Extracted from PerlMagick Discussion forums.. # Gravity center, caption and wrapped text # https://imagemagick.org/discourse-server/viewtopic.php?f=7&t=17282 # use strict; use warnings; use Image::Magick; my $im = new Image::Magick; my $e = $im->Set( background => 'none', fill => 'white', stroke => 'black', strokewidth => 2, Gravity => 'East', pointsize => 48, size => '200x300', ); die $e if $e; $e = $im->Read("caption:Lorem ipsum etc etc"); die $e if $e; $e = $im->Trim(); die $e if $e; $e = $im->Write('settings.png'); die $e if $e;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件