Perl知識點滴

2021-07-25 11:56:13 字數 1422 閱讀 5854

#  函式多返回值

$v1 = 'abc';

$v2 = 'bcd';

($v3, $v4) = upcase($v1, $v2);

sub upcase

return wantarray ? @parms : $parms[0];

}print $v3, $v4;

# 取得陣列長度

@a=(1, 2, 3);

my $alen = @a;

print $alen;

@aa = ([1,"111"], [2, '2222'], [3, '3333'], [4, '4444']);

my $aalen = @aa;

print $aalen;

#遍歷陣列

my @key_words = (

'泰迪',

'哈士奇',

'德牧'

);foreach my $v (@key_words)

# 操作mysql

use dbi;

my $dsn = "dbi:mysql:database=db1;host=localhost";

my $user = 'root';

my $password = 'mypassword';

$dbh = dbi->connect($dsn,$user,$password);       #連線資料庫

$dbh->do("set names gbk"); 

my ($dbh,$sth,@ary);

$dbh->do("update test set f1 = 1"); # 修改

$sth = $dbh->prepare("select f1,f2,f3 from test");  #查詢

$sth->execute();

while(my(@row) = $sth->fetchrow_array());#取記錄到變數}

$sth->finish;

$dbh->disconnect;

# 建立模組bankaccount.pm, 內容如下:

package bankaccount;

use exporter;

@isa=('exporter');

@export_ok = ( 'deposit');

$total = 0;

sub deposit

return 1;

# 使用模組bankaccount

use bankaccount;

bankaccount::deposit(10);

print $bankaccount::total;

# 操作文字檔案

open txt,">c:/a.txt";

print txt "test...\n";

close txt;

Linux 知識點滴

linux的原作者是誰?linus torvalds,托瓦茲.作業系統應該包括哪兩個部分?乙個是 核心與其提供的介面工具 另乙個是 利用核心提供的介面工具所開發出來的軟體 linux的發展分為兩種版本,哪兩種?穩定版本的偶數版,如2.6.x,適合與商業與家用環境使用 發展中版本的奇數版,適合開發特殊...

C 多型知識點滴

函式的多種不同的實現方式即為多型 在繼承中,有時候基類的一些函式在派生類中也是有用的,但是功能不夠全或者兩者的功能實現方式就是不一樣的,這個時候就希望過載那個基類的函式,但是為了不再呼叫這個函式時,出現不知道呼叫基類的還是子類的情況出現,於是就提出了多型。多型可以說是面象物件語言的強大原因之一。多型...

Objective C知識點滴記錄

1 方法呼叫基本語法 object method object methodwithinput input 方法可以有返回值 output object methodwithoutput output object methodwithinputandoutput input 還可以呼叫累方法 id...