Manipulasi File dan Direktori Menggunakan Perl

Sering kali ketika melakukan pemrograman untuk mengolah suatu file, kita akan memerlukan fungsi-fungsi seperti membuka directory, membaca file, menghapus file atau juga memindahkan suatu file dari suatu directory ke directory lainnya. Berikut sedikit tutorial untuk manipulasi file dan directory tersebut

Membuka suatu directory

opendir(TEMP, '/var/spool/sms/incoming') || die "Tidak dapat membuka directory /var/spool/sms/incoming: $!";

Membaca suatu file dalam directory
misal di dalam directory ../incoming ada sebuah file yang bernama 200804031450

opendir(TEMP, '/var/spool/sms/incoming') || die "Tidak dapat membuka directory /var/spool/sms/incoming: $!";
my @FILES=grep(/GSM/i, readdir TEMP);
print "@FILES[0]";

output:

200804031450

 Bersambung.......

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s