Hi I found the logic use File::Basename; $FILENAME="/Developer/view_local/local_nt/FDAFDSAFDSASDFA/ASDFDAFSASDF/NewProcess_date_22-oct-2004.log"; my $name = basename($FILENAME,'.log'); print substr($name, 0, 7);
Thanks to Bob. Regards Sreedhar -----Original Message----- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: 22 October 2004 17:26 To: Kalkunte-Venkatachala, Sreedhar; [EMAIL PROTECTED] Subject: RE: how the print the first 7 letter of file name [EMAIL PROTECTED] wrote: > Hi > > I tried the way in which you have suggested > ========================================== > #!/perl -w > use File::Basename; > > $FILENAME="\Developer\view_local\local_nt\FDAFDSAFDSASDFA\ASDFDAFSASDF\NewPr ocess_date_22-oct-2004.log"; > my $name = basename($FILENAME, '.log'); > print substr($name, 0, 7); > ====================================== > I am getting error > > Unrecognized escape \D passed through at ./a.pl line 4. Use single quotes around the file name. See perldoc -q "DOS paths" -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> Visit our website at http://www.ubs.com This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. E-mail transmission cannot be guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or contain viruses. The sender therefore does not accept liability for any errors or omissions in the contents of this message which arise as a result of e-mail transmission. If verification is required please request a hard-copy version. This message is provided for informational purposes and should not be construed as a solicitation or offer to buy or sell any securities or related financial instruments. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
