Perl skalar
Skalar ialah unit data ringkas.
Skalar boleh menjadi integer, nombor titik terapung, aksara, rentetan, perenggan atau halaman web yang lengkap.
Contoh berikut menunjukkan aplikasi mudah skalar:
#!/usr/bin/perl $age = 20; # 整数赋值 $name = "php"; # 字符串 $salary = 130.50; # 浮点数 print "Age = $age\n"; print "Name = $name\n"; print "Salary = $salary\n";
Laksanakan atur cara di atas, hasil output ialah:
Age = 20 Name = php Salary = 130.5
Skalar berangka
Skalar biasanya ialah nombor atau rentetan Contoh berikut menunjukkan penggunaan jenis skalar berangka yang berbeza:
#!/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";
Jalankan atur cara di atas, dan hasil keluarannya ialah:
integer = 200 negative = -300 floating = 200.34 bigfloat = -1.2e-23 octal = 255 hexa = 255
Skalar rentetan
Contoh berikut menunjukkan penggunaan pelbagai jenis skalar rentetan Beri perhatian kepada perbezaan antara penggunaan petikan tunggal dan petikan berganda:
#!/usr/bin/perl $var = "字符串标量 - php中文网!"; $quote = '我在单引号内 - $var'; $double = "我在双引号内 - $var"; $escape = "转义字符使用 -\tHello, World!"; print "var = $var\n"; print "quote = $quote\n"; print "double = $double\n"; print "escape = $escape\n";
Laksanakan atur cara di atas, output. hasilnya ialah:
var = 字符串标量 - php中文网! quote = 我在单引号内 - $var double = 我在双引号内 - 字符串标量 - php中文网! escape = 转义字符使用 - Hello, World!
Operasi skalar
Contoh berikut menunjukkan operasi mudah skalar:
#!/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";
Laksanakan atur cara di atas, hasil output ialah:
str = helloworld num = 15 mix = helloworld15
Rentetan berbilang baris
Kita boleh menggunakan petikan tunggal untuk mengeluarkan rentetan berbilang baris, seperti yang ditunjukkan di bawah:
#!/usr/bin/perl $string = ' php中文网 —— php中文网 '; print "$string\n";
Laksanakan atur cara di atas, hasil output ialah :
php中文网 —— php中文网
Anda juga boleh menggunakan format sintaks dokumen "di sini" untuk mengeluarkan berbilang baris:
#!/usr/bin/perl print <<EOF; php中文网 —— php中文网 EOF
Laksanakan atur cara di atas, hasil output ialah:
php中文网 —— php中文网
Aksara khas
Di bawah kami akan menunjukkan penggunaan aksara khas dalam Perl , seperti __FILE__, __LINE__ dan __PACKAGE__ masing-masing mewakili nama fail, nombor baris dan nama pakej skrip yang sedang dilaksanakan.
Aksara khas ini adalah tag berasingan dan tidak boleh ditulis dalam rentetan, contohnya:
#!/usr/bin/perl print "文件名 ". __FILE__ . "\n"; print "行号 " . __LINE__ ."\n"; print "包名 " . __PACKAGE__ ."\n"; # 无法解析 print "__FILE__ __LINE__ __PACKAGE__\n";
Laksanakan atur cara di atas, hasil keluarannya ialah:
文件名 test.pl 行号 4 包名 main __FILE__ __LINE__ __PACKAGE__
v aksara Rentetan
Rentetan yang bermula dengan v diikuti dengan satu atau lebih integer yang dipisahkan oleh noktah akan dianggap sebagai teks rentetan.
Apabila anda mahu mengisytiharkan nilai berangka secara langsung untuk setiap aksara, rentetan v menyediakan cara yang lebih jelas untuk membina rentetan sedemikian, tidak seperti "x{1}x{14 }x{12c}x{fa0}" Ini tidak mudah difahami. Kita boleh lihat contoh berikut:
#!/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";
Jalankan program di atas, hasil keluarannya ialah:
Wide character in print at test.pl line 7. smile = ☺ foo = foo martin = Martin