PROGRAM PERL PEMBALIK KALIMAT DAN BACA TULIS FILE

1. PEMBALIK KALIMAT

SOURCECODE

#!usr/bin/perl
use strict;
use warnings;

#variabel yang digunakan

my $masuk; #variabel kalimat dimasukkan
my @masuk; #variabel array masukkan dari $masuk
my $balik; #hasil balikan array

#memulai memasukkan data
print “masukkan kalimat yang kan dibalik \n”;
chop ($masuk = <STDIN>);
print” \n “;

#memproses data dan memasukkannya ke array
@masuk = split(/ /,$masuk);
print “hasil dari membalik kalimat tersebut adalah berikut :\n”;

#melakukan pembalikan kalimat dan pembacaan array
foreach $balik (reverse@masuk){
print”$balik “;
}
print”\n “;

#selesai deh

simpan dengan namafile.pl dan running dengan mengetik pada command prompt / terminal linux: “perl namafile.pl” pada lokasi penyimpanan semisal di bawah.

RUNNING

run1

run2

 

 

BACA TULIS SALIN FILE

syarat : terdapat file input yang berupa resep.txt yang akan dibaca dan ditulis ulang

SOURCECODE

#!/usr/bin/perl;
use strict;
use warnings;

my $masukan; #variabel penyimpan nama file buka
my $keluaran; #variabel penyimpan keluaran
my $baca; #membaca inputan file teks
my @isi_file; #variabel yang menyimpan hasil pembacaan

#mulai membaca teks sumber
$baca = “resep.txt”;
open($masukan,$baca);
@isi_file = <$masukan>;

#mencetak hasil pembacaan
print @isi_file;
print “\n”;

#menyalin ke file lainnya
open($keluaran,”>output.txt”);
foreach (@isi_file){
print $keluaran “$_”;
}

#statement akhir
print “\ndata telah disimpan kedalam file output.txt \n”;
close($masukan);
close($keluaran);

#selesai deh

 

RUNNING

run4

 

run3

About boby fahlevi

saya sangat bersemangat

Posted on 4 Juli 2010, in KOMPUTER. Bookmark the permalink. 4 Komentar.

  1. Saya berterima kasih sekali atas artikel Anda ini! saya merasa sangat terbantu dalam belajar Perl! Terima kasih dan lanjutkan berbagi ilmunya!
    Best Regard

  2. Oke sama2

  3. wah bob thanks nie…gw lg nyari tugas perl eh nemu blog lo..pas banget lagi source code’a…
    mantap2..hehe…thanks master boby..haha…tebe ^_^

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: