[EMAIL PROTECTED] (Jeff Bisbee) wrote in message
news:<[EMAIL PROTECTED]>...
> I have a handy script I keep in my ~/bin directory
called 'pmpath'
>
> #!/usr/bin/perl
> $module = shift;
> ($mod = $module) =~ s#::#/#g;
> die ("Need a module name\n") unless $mod;
> $mod .= '.pm';
> require $mod;
> print $INC{$mod} . " (" . ${$module .
"::VERSION"} . ")\n";
>
> [snip]
>
> I also have another handy script called 'pmlocal'
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> use File::Path qw(mkpath);
> use File::Copy qw(copy);;
>
> my $editor = $ENV{EDITOR} || 'vi';
> my $module = shift;
> die ("Need a module name\n") unless $module;
>
> $module =~ s#::#/#g;
> $module .= '.pm';
> require $module;
> my ($path) = $module =~ /(.+)\//;
>
> mkpath($path,1);
> copy($INC{$module},$module);
> exec("$editor $module");
>
Jeff: Tried both out today. Simply substituting
Notepad for vi (am at work, on Win32), they worked
right out of the box! Thanks again.
Jim Keenan
=====
Affiliations: Perl Seminar NY / New York Perlmongers / Toronto Perlmongers
__________________________________
Do you Yahoo!?
Check out the new Yahoo! Front Page.
www.yahoo.com
