perl

$path   =   "./data/";
opendir(IN1,$path); 
open(OUT1,">filename.txt"); 
while   ($filename  =   readdir(IN1))   {       
    print   OUT1    $filename,"\n"  if  -f  $path.$filename;    
}   
closedir(IN1);
close(OUT1);

pendir(my $path, "./data/");
foreach(my $file = readdir($path)){
    print "$file";
}
closedir($path);

my $file = "/tmp/main.dat";

# ファイル名だけ取得する（結果：main.dat）
print basename($file), "\n";

# 拡張子の取り除いたファイル名だけ取得する（結果：main）
print basename($file, ".dat"), "\n";

my $num1 = "345";
# 文字列が数字のみであるかどうかの判定
# 「先頭から数字がひとつ以上続いて末尾にいたる」と読む
if ($num1 =~ /^[0-9]+$/) {
  print "$num1は数字のみの文字列です。\n";
}