◀ Previous Next ▶ Up ▲


witpoko.com


เขียน perl เพื่อจะเอา file extension ออก รวบกวนช่วยดูหน่อยครับ

เขียน perl เพื่อจะเอา file extension ออก รวบกวนช่วยดูหน่อยครับ

 1 #1/usr/bin/perl
 2
 3 use strict;
 4
 5 my $file = $ARGV[0];
 6
 7 open FILE, $ARGV[0] or die $!;
 8
 9 my $filename =~ s/\.[\w]*$//;
10
11 print "this is your filename: $filename\n";

พยายามจะตัดเอาทั้งหมดของนามสกุลไฟล์ออกแต่มันดันไม่ print อะไรออกมาเลย

ผม map reg expression ผิดตรงไหนเหรอครับ


จากคุณ : Myryuko -[ 3 พ.ค. 53 - 13:50:58 ]




Share/Save/Bookmark





กระทู้ยอดนิยม