2012-05-01から1日間の記事一覧
引数で指定したパッケージの依存関係をツリーっぽく表示する #!/usr/bin/perl use strict; use warnings; our %pkg; sub printdepend { my $pname = $_[0]; my $depth = $_[1]; if( !exists($pkg{$pname}) ){ $pkg{$pname} = $depth; print ' ' x $depth . "…
引数で指定したパッケージの依存関係をツリーっぽく表示する #!/usr/bin/perl use strict; use warnings; our %pkg; sub printdepend { my $pname = $_[0]; my $depth = $_[1]; if( !exists($pkg{$pname}) ){ $pkg{$pname} = $depth; print ' ' x $depth . "…