- Timestamp:
- 2015-12-16T16:15:39+13:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/FileUtils/HDFSShell.pm
r27525 r30354 249 249 } 250 250 ## isHDFS() 251 252 253 ## @function isSpecialDirectory 254 # 255 sub isSpecialDirectory 256 { 257 my ($path) = @_; 258 return ($path =~ /^HDFSShell:\/\/[a-zA-Z]+:\d+$/); 259 } 260 ## isSpecialDirectory() 251 261 252 262 … … 318 328 my @files; 319 329 my $result = &_executeHDFSCommand(1, 'ls', $path); 330 if ($result =~ /No such file or directory/) 331 { 332 print STDERR "BOOM! BOOM! BOOM!\n"; 333 return undef; 334 } 320 335 my @lines = split(/\r?\n/, $result); 321 336 foreach my $line (@lines)
Note:
See TracChangeset
for help on using the changeset viewer.