最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

上一章 下一章 目錄