[ create a new paste ] login | about

Link: http://codepad.org/7GP1yrnG    [ raw code | output | fork ]

Perl, pasted on Mar 20: 
1
2
3

use File::Basename;
#print basename("/hello/foo.txt");
print dirname("foo.txt");


Output: 
1

.


Create a new paste based on this one


Comments: