Question

perl中如何将某一文件夹中文件的名字（去掉后缀）截取出来写入到另外一个文件中

比如说@case = ./tests/*.c是指tests文件夹中所有的c文件，想按照顺序把这些文件的名字入到name.text中，该怎么做

Answer 1

for my $fullname (glob('./tests/*.c'))

{
       say FH basename $fullname;
}