เกลา Perl

เกลาเป็นองค์ประกอบข้อมูลง่าย

เกลาสามารถเป็นจำนวนเต็มจำนวนจุด, ตัวอักษร, สตริงย่อหน้าหรือหน้าเว็บที่สมบูรณ์แบบลอยตัว

ตัวอย่างต่อไปนี้แสดงให้เห็นถึงการประยุกต์ใช้เกลาง่าย:

#!/usr/bin/perl

$age = 20;             # 整数赋值
$name = "w3big";   # 字符串
$salary = 130.50;     # 浮点数

print "Age = $age\n";
print "Name = $name\n";
print "Salary = $salary\n";

โปรแกรมข้างต้นผลลัพธ์คือ:

Age = 20
Name = w3big
Salary = 130.5

เกลาดิจิตอล

เกลามักจะเป็นตัวเลขหรือสตริงตัวอย่างต่อไปนี้แสดงให้เห็นถึงการใช้งานของประเภทเกลาดิจิตอลที่แตกต่างกัน:

#!/usr/bin/perl

$integer = 200;
$negative = -300;
$floating = 200.340;
$bigfloat = -1.2E-23;

# 八进制 377 , 十进制为 255 
$octal = 0377;

# 十六进制 FF, 十进制为 255 
$hexa = 0xff;

print "integer = $integer\n";
print "negative = $negative\n";
print "floating = $floating\n";
print "bigfloat = $bigfloat\n";
print "octal = $octal\n";
print "hexa = $hexa\n";

โปรแกรมข้างต้นผลลัพธ์คือ:

integer = 200
negative = -300
floating = 200.34
bigfloat = -1.2e-23
octal = 255
hexa = 255

สตริงเกลา

ตัวอย่างต่อไปนี้แสดงให้เห็นถึงสตริงเกลาใช้ประเภทต่าง ๆ และให้ความสนใจกับความแตกต่างระหว่างคำพูดเดี่ยวและคู่นี้:

#!/usr/bin/perl

$var = "字符串标量 - 本教程!";
$quote = '我在单引号内 - $var';
$double = "我在双引号内 - $var";

$escape = "转义字符使用 -\tHello, World!";

print "var = $var\n";
print "quote = $quote\n";
print "double = $double\n";
print "escape = $escape\n";

โปรแกรมข้างต้นผลลัพธ์คือ:

var = 字符串标量 - 本教程!
quote = 我在单引号内 - $var
double = 我在双引号内 - 字符串标量 - 本教程!
escape = 转义字符使用 -	Hello, World!

การดำเนินงานเกลา

ตัวอย่างต่อไปนี้แสดงให้เห็นถึงการดำเนินการเกลาง่าย:

#!/usr/bin/perl

$str = "hello" . "world";       # 字符串连接
$num = 5 + 10;                  # 两数相加
$mul = 4 * 5;                   # 两数相乘
$mix = $str . $num;             # 连接字符串和数字

print "str = $str\n";
print "num = $num\n";
print "mix = $mix\n";

โปรแกรมข้างต้นผลลัพธ์คือ:

str = helloworld
num = 15
mix = helloworld15

สตริงหลายสาย

เราสามารถใช้ราคาเดียวในการส่งออกสตริงหลายสายดังนี้

#!/usr/bin/perl

$string = '
本教程
	—— 学的不仅是技术，更是梦想！
';

print "$string\n";

โปรแกรมข้างต้นผลลัพธ์คือ:

本教程
	—— 学的不仅是技术，更是梦想！

นอกจากนี้คุณยังสามารถใช้ "ที่นี่" ไวยากรณ์เอกสารการส่งออกหลายบรรทัด:

#!/usr/bin/perl

print <<EOF;
本教程
	—— 学的不仅是技术，更是梦想！
EOF

โปรแกรมข้างต้นผลลัพธ์คือ:

本教程
	—— 学的不仅是技术，更是梦想！

ตัวอักษรพิเศษ

ด้านล่างเราจะแสดงให้เห็นการประยุกต์ใช้ Perl ตัวอักษรพิเศษเช่น __FILE__, __LINE__ และ __PACKAGE__ แทนชื่อไฟล์สคริปต์ในขณะนี้การดำเนินการจำนวนบรรทัดชื่อแพคเกจ

อักขระพิเศษเหล่านี้จะถูกแท็กที่แยกจากกันไม่สามารถเขียนในสตริงตัวอย่างเช่น:

#!/usr/bin/perl

print "文件名 ". __FILE__ . "\n";
print "行号 " . __LINE__ ."\n";
print "包名 " . __PACKAGE__ ."\n";

# 无法解析
print "__FILE__ __LINE__ __PACKAGE__\n";

โปรแกรมข้างต้นผลลัพธ์คือ:

文件名 test.pl
行号 4
包名 main
__FILE__ __LINE__ __PACKAGE__

V สตริง

V จุดเริ่มต้นตามด้วยจำนวนเต็มหนึ่งตัวขึ้นแยกจากกันโดยระยะเวลาและจะถือว่าเป็นสตริงตัวอักษร

เมื่อคุณต้องการที่จะประกาศโดยตรงค่าตัวเลขสำหรับตัวละครแต่ละตัวสตริง V- มีวิธีการที่ชัดเจนในการสร้างเช่นสตริงมากกว่า "\ x {1} \ x {14} \ x { 12C} \ {x} Fa0 "นี้ไม่ใช่เรื่องง่ายที่จะเข้าใจสิ่งที่ฉันสามารถดูตัวอย่างต่อไปนี้:

#!/usr/bin/perl

$smile  = v9786;
$foo    = v102.111.111;
$martin = v77.97.114.116.105.110; 

print "smile = $smile\n";
print "foo = $foo\n";
print "martin = $martin\n";

โปรแกรมข้างต้นผลลัพธ์คือ:

Wide character in print at test.pl line 7.
smile = ☺
foo = foo
martin = Martin