日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

perl子例程

發布時間:2023/12/10 编程问答 26 豆豆
生活随笔 收集整理的這篇文章主要介紹了 perl子例程 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

2019獨角獸企業重金招聘Python工程師標準>>>

sub?子例程名($$)指定兩個標量的參數

(@$)指定一個數組

按引用調用

符號引用?typeglob

類似于UNIX文件系統中的軟鏈接

星號(*)適用于任意類型的變量,包括標量,數組,散列,文件句柄和子例程等

選擇性別名和反斜杠運算符

*array?=?\@array ;

*scalary?=?\$scalary;

*hash?=?\%hash;

*func?=?\&subroutine;

硬引用

通常又稱為指針

是含有其他變量地址的標量型變量,通過反斜杠運算符來創建指針。打印指針可以看見十六進制的地址

下面是我寫的一個小例子,是書上的習題
use strict;
my %hotels = ("Pillowmint" => "5",
? ? ? ? ? ? ? ? "Buxton Suites" => "5",
? ? ? ? ? ? ? ? "The Middletonian" => "3" ,
? ? ? ? ? ? ? ? "Notchbelow" => "4" ,
? ? ? ? ? ? ? ? "Rancho El Cheapo" => "1",
? ? ? ? ? ? ? ? "Pile Inn" => "2");
? ? ? ? ? ? ? ??
printstar(\%hotels);
sub printstar {
? ? my $ref = shift;
? ? my @keys = sort {$ref->{$b} <=> $ref->{$a}} keys %$ref;
? ? foreach (@keys) {
? ? ? ? if($ref->{$_} eq "5") {
? ? ? ? ? print "$_|*****\n";


? ? ? ? } elsif($ref->{$_} eq "4") {
? ? ? ? ? ? print "$_|****\n";
? ? ? ? } elsif ($ref->{$_} eq "3") {
? ? ? ? ? ? print "$_|***\n";
? ? ? ? } elsif ($ref->{$_} eq "2") {
? ? ? ? ? ? print "$_|**\n";
? ? ? ? } else {
? ? ? ? ? ? print "$_|*\n";
? ? ? ? }


? ? }
}

轉載于:https://my.oschina.net/u/854744/blog/418228

總結

以上是生活随笔為你收集整理的perl子例程的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。