perlãã¡ããã¡ãã使ã£ã¦ã¾ãã perlã¯ããã¹ãå¦çã«ã¯åãã¦ãã¾ããã é³æ¥½ åç» ç»å ãªã©ã®ã¡ãã£ã¢åãã®æä½ã¯ãã¾ãé©ãã¦ãªãã§ããã æ å ±ãå°ãªãã§ãã ã¾ããããããããã£ã¡ç³»æ±ããããªããå¥ã®è¨èªä½¿ããã£ã¦è©±ãªãã§ããããã»ã»ã»ã 使ã£ã¦ã¿ã¾ãããMP3::Info #!/usr/bin/perl use strict; use warnings; use MP3::Info; use Data::Dumper; main(); sub main { my $file = $ARGV[0]; my $tag = get_mp3tag($file); my $info = get_mp3info($file); print Dumper($tag, $info); }ã¨ãããããããªæãã perl mp3-info.pl test.mp3ãããªã®ãå©ãã¦ã¿ãã¨ã $VA
{{#tags}}- {{label}}
{{/tags}}