codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
#!/usr/bin/perl use strict; use warnings; use File::Basename; my $fpath = "/home/user/hello/hey.pl"; print "Original : " . $fpath . "\n"; my($filename, $directories) = fileparse($fpath); print "Filename : " . $filename . "\n"; print "Directory : " . $directories . "\n";
Private
[
?
]
Run code
Submit