Kategori: PERL

#!/usr/bin/perl -w

my $filename="dosya.txt";

open(DAT,$filename) or die("Dosya acilamadi: $filename \n");
my @tumsatirlar=<DAT>;
close(DAT); 

chomp(@tumsatirlar); # \n tum satirlardaki \n karakterlerini siler(remove \n for all lines)

foreach my $line(@tumsatirlar)
{
    print "-->".$line."\n";
}

#!/usr/bin/perl -w

my $filename="dosya.txt";

open(DAT,$filename) or die("Dosya acilamadi: $filename \n");

my @tumsatirlar=<DAT>;

close(DAT);

chomp(@tumsatirlar); # \n tum satirlardaki \n karakterlerini siler(remove \n for all lines)

foreach my $line(@tumsatirlar)

{

print "-->".$line."\n";

}

Perl de dosya yazma işlemleri

#!/usr/bin/perl -w

my $filename="dosya.txt";

open(DAT,">",$filename) or die("Dosya acilamadi: $filename \n");
  print DAT "birinci satiri yaz\n"
  print DAT "ikinci satiri yaz\n";
close(DAT);

#!/usr/bin/perl -w

my $filename="dosya.txt";

open(DAT,">",$filename) or die("Dosya acilamadi: $filename \n");

print DAT "birinci satiri yaz\n"

print DAT "ikinci satiri yaz\n";

close(DAT);

Okumaya devam et

Perl: Dosya ve Klasör İşlemleri

27 Haziran 201427 Haziran 2014 tarihinde gönderilmiş caglar tarafından

#!/usr/bin/perl -w

my $mfolder="./mainfolder/";

opendir(DIR, $mfolder) or die("Error_m1: $mfolder not opened!\n");
my @sub_folder_list=grep((!/^\./) && (-d "$mfolder/$_") ,readdir(DIR));
closedir(DIR);

foreach my $fold(@sub_folder_list)
{
	my $deepfold=$mfolder.$fold;
	
	opendir(DIR, $deepfold) or die("Error_m2: $deepfold not opened!\n");
	my @txt_files=grep(/.txt$/,readdir(DIR));
	closedir(DIR);

	foreach my $file(@txt_files)
	{
		print $deepfold."/".$file."\n";
	}

}

#!/usr/bin/perl -w

my $mfolder="./mainfolder/";

opendir(DIR, $mfolder) or die("Error_m1: $mfolder not opened!\n");

my @sub_folder_list=grep((!/^\./) && (-d "$mfolder/$_") ,readdir(DIR));

closedir(DIR);

foreach my $fold(@sub_folder_list)

{

my $deepfold=$mfolder.$fold;

opendir(DIR, $deepfold) or die("Error_m2: $deepfold not opened!\n");

my @txt_files=grep(/.txt$/,readdir(DIR));

closedir(DIR);

foreach my $file(@txt_files)

{

print $deepfold."/".$file."\n";

}

Okumaya devam et

P	S	Ç	P	C	C	P
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31

Kategori: PERL

Perl: Text Dosyaları İçin Encoding Sorunu

PERL: MD5 İşlemleri (Bölüm-1)

Perl: Diziler

Perl: Dosya Okuma ve Yazma

Son Yorumlar

Son Yazılar

Kategoriler

Arşivler