Extract filename from string « CSATech Consulting

Extract filename from string

The following Perl program extracts a filename from a given string. It takes one string parameter.


Syntax:
Perl FilenameExtract.pl Paramerter1

Example:
Perl FilenameExtract.pl http://www.csatechconsulting.com/images/WashingtonFlags.JPG

Returns: WashingtonFlags.JPG

FilenameExtract.pl:

if (@ARGV ==0) {
  print "You must include one parametern";
  exit();
}
$_ = $ARGV[0];
$wholePath = ~m{([^/]*)$};
$fileName = $1;
print "$1n";

Tags: extract, filename, Perl

This entry was posted on Thursday, February 5th, 2009 at 8:40 pm and is filed under ETL. You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.

Comments are closed.