欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

1 : #!/usr/local/bin/perl
2 :
3 : open (WOUT, "w|");
4 : $time = <WOUT>;
5 : $time =~ s/^ *//;
6 : $time =~ s/ .*//;
7 : ; # skip headings line
8 : @users = ;
9 : close (WOUT);
10: foreach $user (@users) {
11:   $user =~ s/ .*//;
12: }
13: print ("Current time: $time");
14: print ("Users logged on:\n");
15: $prevuser = "";
16: foreach $user (sort @users) {
17:   if ($user ne $prevuser) {
18:     print ("\t$user");
19:     $prevuser = $user;
20:   }
21: }

Current time: 4:25pm
Users logged on:
  dave
  kilroy
  root
  zarquon

  4:25pm  up 1 day,  6:37,  6 users,  load average: 0.79, 0.36, 0.28
User     tty       login@  idle   JCPU   PCPU what
dave     ttyp0     2:26pm           27      3 w
kilroy   ttyp1     9:01am  2:27   1:04     11 -csh
kilroy   ttyp2     9:02am    43   1:46     27 rn
root     ttyp3     4:22pm     2               -csh
zarquon  ttyp4     1:26pm     4     43     16 cc myprog.c
kilroy   ttyp5     9:03am         2:14     48 /usr/games/hack

1: #!/usr/local/bin/perl
2:
3: open (STDOUT, ">file1") || die ("open STDOUT failed");
4: open (STDERR, ">&STDOUT") || die ("open STDERR failed");
5: print STDOUT ("line 1\n");
6: print STDERR ("line 2\n");
7: close (STDOUT);
8: close (STDERR);

1 : #!/usr/local/bin/perl
2 :
3 : open (STDOUT, ">file1") || die ("open STDOUT failed");
4 : open (STDERR, ">&STDOUT") || die ("open STDERR failed");
5 : $| = 1;
6 : select (STDERR);
7 : $| = 1;
8 : print STDOUT ("line 1\n");
9 : print STDERR ("line 2\n");
10: close (STDOUT);
11: close (STDERR);

1: #!/usr/local/bin/perl
2:
3: while ($line = <>) {
4:   print ($line);
5:   if (eof) {
6:     print ("-- end of current file --\n");
7:   }
8: }

$ program file1 file2
This is a line from the first file.
Here is the last line of the first file.
-- end of current file --
This is a line from the second and last file.
Here is the last line of the last file.
-- end of current file --
$

1: #!/usr/local/bin/perl
2:
3: while ($line = <>) {
4:   print ($line);
5:   if (eof()) {
6:     print ("-- end of output --\n");
7:   }
8: }

$ program file1 file2
This is a line from the first file.
Here is the last line of the first file.
This is a line from the second and last file.
Here is the last line of the last file.
-- end of output --$

1: #!/usr/local/bin/perl
2:
3: &open_file("INFILE", "", "file1");
4: &open_file("OUTFILE", ">", "file2");
5: while ($line = &read_from_file("INFILE")) {
6:   &print_to_file("OUTFILE", $line);
7: }
8:
9: sub open_file {
10:   local ($filevar, $filemode, $filename) = @_;
11:
12:   open ($filevar, $filemode . $filename) ||
13:     die ("Can't open $filename");
14: }
15: sub read_from_file {
16:   local ($filevar) = @_;
17:
18:   <$filevar>;
19: }
20: sub print_to_file {
21:   local ($filevar, $line) = @_;
22:
23:   print $filevar ($line);
24: }

函數(shù)名	seek
調(diào)用語(yǔ)法	seek (filevar, distance, relative_to);
解說(shuō)	在文件中向前/后移動(dòng)，有三個(gè)參數(shù)： 1、filevar，文件變量 2、distance，移動(dòng)的字節(jié)數(shù)，正數(shù)向前移動(dòng)，負(fù)數(shù)往回移動(dòng) 3、reletive_to，值可為0、1或2。為0時(shí)，從文件頭開(kāi)始移動(dòng)，為1時(shí)，相對(duì)于當(dāng)前位置（將要讀的下一行）移動(dòng)，為2時(shí)，相對(duì)于文件末尾移動(dòng)。 運(yùn)行成功返回真（非零值），失敗則返回零，常與tell函數(shù)合用。

函數(shù)名	tell
調(diào)用語(yǔ)法	tell (filevar);
解說(shuō)	返回從文件頭到當(dāng)前位置的距離。 注意： 1、seek和tell不能用于指向管道的文件變量。 2、seek和tell中文件變量參數(shù)可使用表達(dá)式。

函數(shù)名	read
調(diào)用語(yǔ)法	read (filevar, result, length, skipval);
解說(shuō)	read函數(shù)設(shè)計(jì)得與UNIX的fread函數(shù)等效，可以讀取任意長(zhǎng)度的字符（字節(jié)）存入一個(gè)簡(jiǎn)單變量。其參數(shù)有四個(gè)： 1、filevar：文件變量 2、result：存貯結(jié)果的簡(jiǎn)單變量（或數(shù)組元素） 3、length：讀取的字節(jié)數(shù) 4、skipval：可選項(xiàng)，指定讀文件之前跳過(guò)的字節(jié)數(shù)。 返回值為實(shí)際讀取的字節(jié)數(shù)，如果已到了文件末尾，則返回零，如果出錯(cuò)，則返回空串。

函數(shù)名	sysread
調(diào)用語(yǔ)法	sysread (filevar, result, length, skipval);
解說(shuō)	更快的讀取數(shù)據(jù)，與UNIX函數(shù)read等效，參數(shù)與read相同。

函數(shù)名	syswrite
調(diào)用語(yǔ)法	syswrite (filevar, data, length, skipval);
解說(shuō)	更快的寫入數(shù)據(jù)，與UNIX函數(shù)write等效，參數(shù)： 1、filevar：將要寫入的文件 2、data：存貯要寫入數(shù)據(jù)的變量 3、length：要寫入的字節(jié)數(shù) 4、skipval寫操作之前跳過(guò)的字節(jié)數(shù)。

函數(shù)名	getc
調(diào)用語(yǔ)法	$char = getc (infile);
解說(shuō)	從文件中讀取單個(gè)字符。

函數(shù)名	binmode
調(diào)用語(yǔ)法	binmode (filevar);
解說(shuō)	當(dāng)你的系統(tǒng)（如類DOS系統(tǒng)）對(duì)文本文件和二進(jìn)制文件有所區(qū)別時(shí)使用。必須在打開(kāi)文件后、讀取文件前使用。

函數(shù)名	rename
調(diào)用語(yǔ)法	rename (oldname, newname);
解說(shuō)	改變文件名或移動(dòng)到另一個(gè)目錄中，參數(shù)可為字符串或表達(dá)式。

函數(shù)名	unlink
調(diào)用語(yǔ)法	num = unlink (filelist);
解說(shuō)	刪除文件。參數(shù)為文件名列表，返回值為實(shí)際刪除的文件數(shù)目。 此函數(shù)之所以叫unlink而不叫delete是因?yàn)樗鼘?shí)際所做的是刪除文件的鏈接。

函數(shù)名	link
調(diào)用語(yǔ)法	link (newlink, file);
解說(shuō)	創(chuàng)建現(xiàn)有文件的鏈接--硬鏈接，file是被鏈接的文件，newlink是被創(chuàng)建的鏈接。 成功返回真，失敗返回假。 當(dāng)刪除這兩個(gè)鏈接中的一個(gè)時(shí)，還可以用另一個(gè)來(lái)訪問(wèn)該文件。

函數(shù)名	symlink
調(diào)用語(yǔ)法	symlink (newlink, file);
解說(shuō)	創(chuàng)建現(xiàn)有文件的符號(hào)鏈接，即指向文件名，而不是指向文件本身。參數(shù)和返回值同上。 當(dāng)原文件被刪除（如：被unlinke函數(shù)刪除），則被創(chuàng)建鏈接不可用，除非再創(chuàng)建一個(gè)與原被鏈接的文件同名的文件。

函數(shù)名	readlink
調(diào)用語(yǔ)法	filename = readlink (linkname);
解說(shuō)	如果linkname為符號(hào)鏈接文件，返回其實(shí)際指向的文件。否則返回空串。

函數(shù)名	chmod
調(diào)用語(yǔ)法	chmod (permissions, filelist);
解說(shuō)	改變文件的訪問(wèn)權(quán)限。參數(shù)為： 1、permissions為將要設(shè)置的權(quán)限，其含義見(jiàn)上述mkdir中權(quán)限表 2、filelist為欲改變權(quán)限的文件列表

函數(shù)名	chown
調(diào)用語(yǔ)法	chown (userid, groupid, filelist);
解說(shuō)	改變文件的屬主，有三個(gè)參數(shù)： 1、userid：新屬主的(數(shù)字)ID號(hào) 2、groupid：新的組(數(shù)字)ID號(hào)，-1為保留原組 3、filelist：欲改變屬主的文件列表

函數(shù)名	umask
調(diào)用語(yǔ)法	oldmaskval = umask (maskval);
解說(shuō)	設(shè)置文件訪問(wèn)權(quán)限掩碼，返回值為當(dāng)前掩碼。

函數(shù)名	truncate
調(diào)用語(yǔ)法	truncate (filename, length);
解說(shuō)	將文件的長(zhǎng)度減少到length字節(jié)。如果文件長(zhǎng)度已經(jīng)小于length，則不做任何事。其中filename可以為文件名，也可以為文件變量

函數(shù)名	stat
調(diào)用語(yǔ)法	stat (file);
解說(shuō)	獲取文件狀態(tài)。參數(shù)file可為文件名也可為文件變量。返回列表元素依次為： 文件所在設(shè)備 內(nèi)部參考號(hào)(inode) 訪問(wèn)權(quán)限 硬鏈接數(shù) 屬主的(數(shù)字)ID 所屬組的(數(shù)字)ID 設(shè)備類型（如果file是設(shè)備的話） 文件大�。ㄗ止�(jié)數(shù)） 最后訪問(wèn)時(shí)間 最后修改時(shí)間 最后改變狀態(tài)時(shí)間 I/O操作最佳塊大小 分配給該文件的塊數(shù)

函數(shù)名	lstat
調(diào)用語(yǔ)法	lstat (file);
解說(shuō)	與stat類似，區(qū)別是將file看作是符號(hào)鏈接。

函數(shù)名	time
調(diào)用語(yǔ)法	currtime = time();
解說(shuō)	返回從1970年1月1日起累計(jì)秒數(shù)。

函數(shù)名	gmtime
調(diào)用語(yǔ)法	timelist = gmtime (timeval);
解說(shuō)	將由time, stat 或 -A 和 -M 文件測(cè)試操作符返回的時(shí)間轉(zhuǎn)換成格林威治時(shí)間。返回列表元素依次為： 秒 分鐘 小時(shí)，0~23 日期 月份，0~11(一月~十二月) 年份 星期，0~6(周日~周六) 一年中的日期，0~364 是否夏令時(shí)的標(biāo)志 詳見(jiàn)UNIX的gmtime幫助。

函數(shù)名	localtime
調(diào)用語(yǔ)法	timelist = localtime (timeval);
解說(shuō)	與gmtime類似，區(qū)別為將時(shí)間值轉(zhuǎn)換為本地時(shí)間。

函數(shù)名	utime
調(diào)用語(yǔ)法	utime (acctime, modtime, filelist);
解說(shuō)	改變文件的最后訪問(wèn)時(shí)間和最后更改時(shí)間。例如： $acctime = -A "file1"; $modtime = -M "file1"; @filelist = ("file2", "file3"); utime ($acctime, $modtime, @filelist);

函數(shù)名	fileno
調(diào)用語(yǔ)法	filedesc = fileno (filevar);
解說(shuō)	返回文件的內(nèi)部UNIX文件描述。參數(shù)filevar為文件變量。

函數(shù)名	fcntl flock
調(diào)用語(yǔ)法	fcntl (filevar, fcntlrtn, value); flock (filevar, flockop);
解說(shuō)	詳見(jiàn)同名UNIX函數(shù)幫助。

函數(shù)名	dbmopen
調(diào)用語(yǔ)法	dbmopen (array, dbmfilename, permissions);
解說(shuō)	將關(guān)聯(lián)數(shù)組與DBM文件相關(guān)聯(lián)。參數(shù)為： 1、array：所用關(guān)聯(lián)數(shù)組 2、dbmfilename：將打開(kāi)的DBM文件名 3、訪問(wèn)權(quán)限，詳見(jiàn)mkdir

函數(shù)名	dbmclose
調(diào)用語(yǔ)法	dbmclose (array);
解說(shuō)	關(guān)閉DBM文件，拆除關(guān)聯(lián)數(shù)組與之的關(guān)系。

上一章 下一章 目錄