検索ワード: argv (イタリア語 - デンマーク語)

#! /usr/ bin/ perl die "file $argv[0] doesn't exist" unless -f $argv[0]; use mp3: :mplib; my $mp3 = mp3: :mplib- > new($argv[0]); my $v2tag = $mp3- > get_v2tag; print "error writing tags of $argv[0]\" unless $mp3- > set_v2tag($v2tag, amp; utf8);
#! / usr/ bin/ perl die "filen $argv[ 0] findes ikke" unless - f $argv[ 0]; use mp3:: mplib; my $mp3 = mp3:: mplib - > new( $argv[ 0]); my $v2tag = $mp3 - > get_ v2tag; print "fejl ved skrivning af mærket til $argv[ 0]\" unless $mp3 - > set_ v2tag( $v2tag, amp; utf8);