Oracle DBA Forum  

Вернуться   Oracle DBA Forum > Programming > PHP, PERL, PYTHON, C# > Perl

Ответ
 
Опции темы Опции просмотра
  #1  
Старый 04.11.2010, 16:23
Marley Marley вне форума
Senior Member
 
Регистрация: 19.09.2009
Сообщений: 7,211
По умолчанию Типы данных

Типы данных:

  • integers
  • Strings
  • Scalars
  • Arrays
  • Hashes
  • References
__________________
Чат форума (требуется аккаунт на github или twitter)
Ответить с цитированием
  #2  
Старый 04.11.2010, 18:21
Marley Marley вне форума
Senior Member
 
Регистрация: 19.09.2009
Сообщений: 7,211
По умолчанию



#!C:\strawberry\perl\bin

use strict;
use warnings;



main(@ARGV);

sub main {

numbers();
space(); # отступ
strings();
space(); # отступ
lists();
space(); # отступ
slices();
space(); # отступ
hashes();
space(); # отступ
undefined();
}

sub numbers {

message("NUMBERS:");

my $decimal = 12345;
my $octal = 012345;
my $hex = 0x2ab5;
my $binary = 0b1101110;
my $float = 1234.454;
my $exp = 12.34e56;

message("decimal is $decimal");
message("octal is $octal");
message("hex is $hex");
message("binary is $binary");
message("float is $float");
message("exp is $exp");

}


sub strings {

message("STRINGS:");

my $n = 25;
my $s1 = 'string1: $n';
my $s2 = "string2: $n";
my $s3 = "string3: \"$n\"";
my $s4 = "string4: '$n'";
my $s5 = 'string5: \'$n\'';
my $s6 = q{string6: '$n'};
my $s7 = qq{string7: '$n'};
my $s8 = qq{string8: "$n"};




message($s1);
message($s2);
message($s3);
message($s4);
message($s5);
message($s6);
message($s7);
message($s8);

message($s1 . ' + ' . $s2);


}



sub lists {

message("LISTS:");

message("Sample1: " . q{my @array1 = (1,2,3,4))});

my @array1 = (1,2,3,4);
message("array1: " . join(":", @array1));

message("-----------------");
message("Sample2: " . q{my ($one, $two, $three, $four) = (1,2,3,4)});

my ($one, $two, $three, $four) = (1,2,3,4);

message('$one: ' . $one);
message('$two: ' . $two);
message('$three: ' . $three);
message('$four: ' . $four);



message("-----------------");
message("Sample3: " . q{my @array3 = ("one","two","three","four")});

my @array3 = ("one","two","three","four" );

message("array3[0]: " . $array3[0]);
message("array3[1]: " . $array3[1]);
message("array3[2]: " . $array3[2]);
message("array3[3]: " . $array3[3]);


message("-----------------");
message("Sample4: " . "there are " . scalar @array3 . " elements in the array3");





}




sub slices {

message("SLICES:");

my @array = (1 .. 10);

message(join(":", @array));
message(join(":", @array[1,4,7]));
message(join(":", @array[0..2,5,7]));
message(join(":", @array[9,3,5]));


}


sub hashes {

message("HASHES:");

my %hash = ("dog" => "собака" , "cat" => "кошка", "mouse" =>"мышка");
message($hash{"dog"});
message($hash{"cat"});
message($hash{"mouse"});


message("===========");

message("keys: " . join(':', keys(%hash)));
message("values: " .join(':', values(%hash)));




}


sub undefined {

message("UNDEF:");

my $x = 'value';
message("x is $x");
$x = undef;
message("x is $x");



}


sub message {

my $m = shift or return;
print("$m\n");


}

sub space {


print("\n");


}





RESULT:


NUMBERS:
decimal is 12345
octal is 5349
hex is 10933
binary is 110
float is 1234.454
exp is 1.234e+057

STRINGS:
string1: $n
string2: 25
string3: "25"
string4: '25'
string5: '$n'
string6: '$n'
string7: '25'
string8: "25"
string1: $n + string2: 25

LISTS:
Sample1: my @array1 = (1,2,3,4))
array1: 1:2:3:4
-----------------
Sample2: my ($one, $two, $three, $four) = (1,2,3,4)
$one: 1
$two: 2
$three: 3
$four: 4
-----------------
Sample3: my @array3 = ("one","two","three","four")
array3[0]: one
array3[1]: two
array3[2]: three
array3[3]: four
-----------------
Sample4: there are 4 elements in the array3

SLICES:
1:2:3:4:5:6:7:8:9:10
2:5:8
1:2:3:6:8
10:4:6

HASHES:
собака
кошка
мышка
===========
keys: cat:dog:mouse
values: кошка:собака:мышка

UNDEF:
x is value
x is
Use of uninitialized value $x in concatenation (.) or string at C:/eclipse/workspace/FirstProject1/FirstFile.pl line 166.
__________________
Чат форума (требуется аккаунт на github или twitter)
Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 10:27. Часовой пояс GMT +3.


Powered by vBulletin®