http://qs1969.pair.com?node_id=513304


in reply to Private Utilities

One little utility I wrote which others in my workplace have found useful is called 'fp', for "Full Path":

use strict; use warnings; use Cwd qw(abs_path); my $file = $ARGV[0] || "."; die "Error - couldn't find (or read) '$file': $!\n" if !(-e $file); print abs_path($file) , "\n";

The reason for writing it was that I frequently found myself copying file names from the terminal to email as a pointer to someone and it was getting annoying to write "pwd", copy the output, then copy the filename and paste it after the "pwd" output.