文件操作 - tree.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/ImageMagick-perl-6.9.10.68/demo/tree.pl
编辑文件内容
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # # Example of using a lsys fractal, # which in turm used Turtle Graphics # use Cwd; use lib cwd; require "lsys.pl"; %rule = ( 'A' => 'S[---LMA][++++B]', 'B' => 'S[++LBg][--Cg]', 'C' => 'S[-----LB]GS[+MC]', 'g' => '', 'L' => '[{S+S+S+S+S+S}]' ); %stemchanges = ( distance => 18.5, dtheta => 0.1, motionsub => sub{ $im->Draw ( primitive=>'line', points=>join(' ',@_), stroke=>'dark green', strokewidth=>1 ); } ); %polychanges = ( distance => 3, dtheta => 0.4, motionsub => sub{ push( @poly, @_[0..1] ); } ); $changes = \%stemchanges; lsys_init(400); lsys_execute('A', 10, "tree.gif", %rule);
修改文件时间
将文件时间修改为当前时间的前一年
删除文件