ref: bca4f2b1da059fbf49a117f447b16b244fa7329a
dir: /common/id3lib/rename.pl/
#!/usr/bin/perl %vars = ( "__pFrameList" => "__frames", "__pBinaryList" => "__binaries", "__pFindCursor" => "__cursor", "__bSyncOn" => "__is_unsync", "__bCompression" => "__is_compressed", "__bPadding" => "__is_padded", "__bExtendedHeader" => "__is_extended", "__bHasChanged" => "__changed", "__bFileWritable" => "__is_file_writable", "__fFileHandle" => "__file_handle", "__ulFileSize" => "__file_size", "__ulOldTagSize" => "__orig_tag_size", "__ulExtraBytes" => "__extra_bytes", "__bHasV1Tag" => "__has_v1_tag", "__ulTagsToParse" => "__tags_to_parse", "__sFileName" => "__file_name", "s_ulInstances" => "__instances", "__sEncryptionID" => "__encryption_id", "__sGroupingID" => "__grouping_id", "__bHasChanged" => "__changed", "__auiFieldBits" => "__field_bitset", "__ulNumFields" => "__num_fields", "__apFields" => "__fields", "__FrmHdr" => "__hdr", "__eName" => "__id", "__eType" => "__type", "__ulFixedLength" => "__length", "__eSpecBegin" => "__spec_begin", "__eSpecEnd" => "__spec_end", "__ulFlags" => "__flags", "__bHasChanged" => "__changed", "__sData" => "__data", "__ulSize" => "__size", "__eError" => "__error", "__nErrLine" => "__line_num", "__sErrFileName" => "__file_name", "__sErrDesc" => "__description", ); #open(VARIABLES, "variables.txt") or die "Can't open variables.txt: $!\n"; #while ($line = <VARIABLES>) # { # ($oldname, $newname) = split(" ", $line); # $vars{$oldname} = $newname; # } while (<>) { foreach $oldvar (sort keys %vars) { s/$oldvar/$vars{$oldvar}/g; } print; }