[Daryl Lim]

Hi all.

I am trying to use Perl to locate the longest filename in a directory and a subdirectory,

what is the equivalance of the parameter expasnion to bash script to do:

to extract "file1" from "/root/file1.txt"


in bash script, i use

${file##.*} , then ${file%.} to extract


thanks
daryl

[Pat Phelan]

I'd use:

@files = glob($directory);

-PatP

[senza_nome]

Something like this perhaps

#!\user\bin\perl -w

use File::Find;
use File::Basename;

  # Current directory if nothing else was specified
  @ARGV=qw(') unless @ARGV;
  my($s_LongestFileName);
  # Set $s_Name to the filename and extension of the file under scrutiny; Set $s_LongestFileName to $s_FileName if $s_FileName is longer
  find (sub{ my($s_FileName)=basename($File::Find::name); $s_LongestFileName=$s_FileName if length($s_LongestFileName) < length($s_FileName);},@ARGV);
  print length($s_LongestFileName).":$s_LongestFileName\n";

[senza_nome]

Assuming that the extension of File1.txt.bak is .bak and not .txt.bak, you should be able to use

#!\user\bin\perl -w

use File::Find;
use File::Basename;

  # Current directory if nothing else was specified
  @ARGV=qw(.) unless @ARGV;
  my($s_LongestFileName);
  # Set $s_Name to the filename and extension of the file under scrutiny; Set $s_LongestFileName to $s_FileName if $s_FileName is longer
  find (\&CheckThisFile,@ARGV);
  print length((fileparse($s_LongestFileName,'\.[^.]*'))[0]).":$s_LongestFileName\n";

  sub CheckThisFile {
    my($s_FileName)=$File::Find::name;
    $s_LongestFileName=$s_FileName if length((fileparse($s_LongestFileName,'\.[^.]*'))[0]) < length((fileparse($s_FileName,'\.[^.]*'))[0]);
     };