Ticket #487 (closed defect: fixed)
perl tar file suffix parsing problem
Reported by: | kmaclean | Owned by: | kmaclean |
---|---|---|---|
Priority: | major | Milestone: | |
Component: | Scripts | Version: | 0.1-alpha |
Keywords: | Cc: |
Description (last modified by kmaclean) (diff)
No such file: 'anonymous-20090917-/LICENSE' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc/ar-19.mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc/rb-01.mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc/ar-16.mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc/ar-23.mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc/ar-22.mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc/ar-17.mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc/ar-20.mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc/ar-18.mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc/ar-21.mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/mfc/ar-24.mfc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/etc' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/etc/README' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/etc/HVite_log' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/etc/PROMPTS' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/etc/HDMan_log' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/etc/audiofile_details' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/etc/GPL_license.txt' at lib/TarFiles.pm line 361 No such file: 'anonymous-20090917-/etc/prompts-original' at lib/TarFiles.pm line 361 Uncaught exception from user code: write error on file: /data/svn-tarfiles/SpeechCorpus/Trunk/Audio/MFCC/16kHz_16bit/MFCC_0_D/anonymous-20090917-tgz.tgz at lib/TarFiles.pm line 365 TarFiles::_createTar('TarFiles=HASH(0x5099188)', '/data/svn-mirror/SpeechCorpus/Trunk/Audio/MFCC/16kHz_16bit/MF...', '/data/svn-tarfiles/SpeechCorpus/Trunk/Audio/MFCC/16kHz_16bit/...') called at lib/TarFiles.pm line 190 TarFiles::_processAudio('TarFiles=HASH(0x5099188)') called at lib/TarFiles.pm line 128 TarFiles::_makeAll('TarFiles=HASH(0x5099188)') called at lib/TarFiles.pm line 91 TarFiles::BUILD('TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Class/MOP/Method.pm line 125 Class::MOP::Method::execute('Moose::Meta::Method=HASH(0x5080818)', 'TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Object.pm line 59 Moose::Object::BUILDALL('TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Meta/Class.pm line 278 Moose::Meta::Class::new_object('Moose::Meta::Class=HASH(0x4575518)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Object.pm line 28 Moose::Object::new('TarFiles', 'HASH(0x5098300)') called at ./VoxForge.pm line 144 VoxForge::process('VoxForge=HASH(0x3bb9078)') called at ./VoxForge.pm line 169 at lib/TarFiles.pm line 365 TarFiles::_createTar('TarFiles=HASH(0x5099188)', '/data/svn-mirror/SpeechCorpus/Trunk/Audio/MFCC/16kHz_16bit/MF...', '/data/svn-tarfiles/SpeechCorpus/Trunk/Audio/MFCC/16kHz_16bit/...') called at lib/TarFiles.pm line 190 TarFiles::_processAudio('TarFiles=HASH(0x5099188)') called at lib/TarFiles.pm line 128 TarFiles::_makeAll('TarFiles=HASH(0x5099188)') called at lib/TarFiles.pm line 91 TarFiles::BUILD('TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Class/MOP/Method.pm line 125 Class::MOP::Method::execute('Moose::Meta::Method=HASH(0x5080818)', 'TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Object.pm line 59 Moose::Object::BUILDALL('TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Meta/Class.pm line 278 Moose::Meta::Class::new_object('Moose::Meta::Class=HASH(0x4575518)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Object.pm line 28 Moose::Object::new('TarFiles', 'HASH(0x5098300)') called at ./VoxForge.pm line 144 VoxForge::process('VoxForge=HASH(0x3bb9078)') called at ./VoxForge.pm line 169
Change History
comment:2 Changed 10 years ago by kmaclean
see TarFiles.pm
if (scalar(@files)) { # only create tar file if there are files/folders in source my $tarfileTarget = $parms->getTarfileTarget($cwd, $target); if ($tgtSuffix eq 'tgz') { my $tgz = Archive::Tar->new; $tgz->add_files(@files); $tgz->write($tarfileTarget, COMPRESS_GZIP); if ($tgz->error) { $logger->error ("tgz write error"); confess "write error on file: $target\n"; }
comment:3 Changed 10 years ago by kmaclean
see TarFiles.pm
# don't use fileparse with a suffix list for source folder path... if audio submission contains # "tar", "tgz" or "zip" in its three character random sequence, fileparse will think it # is a suffix and parse it out... # <wrong>: my ($srcFilename,$srcPath,$srcSuffix) = fileparse($source,@suffixlist); </>wrong>
Note: See
TracTickets for help on using
tickets.