孤獨者 - 心在黑暗裡旅行 ...... ...
至尊會員
遊蕩的過客 - 枉入紅塵若許年 .. ...
#! /usr/bin/perl while (<>) { s/\012//; print $_ . "\n\r"; }
./ux2dos.pl ux-test.txt
查看詳細資料
TOP
#! /usr/bin/perl # 使用嚴格的變數宣告檢查 # 一個變數要使用之前, 一定要宣告 use strict; # $file 是用來暫時存放動態產生的帳號密碼對照檔, # 其格式為: 帳號:密碼 my $file = "act-list.txt"; # $file2 是用來儲存動態產生的帳號/密碼表,讓您可以 # 將帳號列印下來, 並剪下帳號密碼紙條, 交給帳號當事人。 my $file2 = "report.txt"; my $num; print "\n請問您要產生多少個帳號? "; chomp($num=<STDIN>); my $prefix; print "\n請問帳號前導字為何? "; chomp($prefix=<STDIN>); open(W, "> $file") || die "無法開啟 $file , 請檢查您的權限!!\n"; open(W2, "> $file2") || die "無法開啟 $file , 請檢查您的權限!!\n"; my $i; for ($i=1; $i<=$num; $i++) { # 動態產生隨機密碼,至少四個數字以上 my $pwd = int(rand 5000) + 1111; # 寫入 $file 中 print W "$prefix$ipwd\n"; # 寫入 $file2 中 print W2 "-" x 45 , "\n"; print W2 "$prefix$ipwd\n"; } close(W); close(W2); # 讀取 act-list.txt # 準備用來大量建帳號及設密碼 open(F, "$file") || die "$!\n"; while (my $line = <F>) { chomp $line; # 取得每一列的資料, 並分離出帳號及密碼 my ($act, $pwd) = split /:/ , $line; # 偵錯用 # print "$act ===> $pwd \n"; # 用 adduser 指令建帳號 system("adduser $act"); print "$act 帳號已建立!\n"; } close(F); # 自動設密碼 # chpasswd 的用法,請詳看 man chpasswd 的說明,即可得知。 system("chpasswd < $file");
ncftp ftp2.tnc.edu.tw cd pub/unix/perl/CPAN/src get perl-5.8.0.tar.gz
tar xvzf perl-5.8.0.tar.gz cd perl-5.8.0 觀看 INSTALL 這個檔案,以獲取編譯安裝 Perl 的方法,如下所示: rm -f config.sh Policy.sh sh Configure -de make make test make install
#! /bin/sh sh Configure -de make make test make install 存成 doit.sh 給執行權 chmod +x doit.sh 執行 doit.sh: ./doit.sh 之後,您便可喫茶去也。
ls -la /usr/local/bin/perl perl -v 若執行正常,表示安裝成功!
fdisk /dev/hda The number of cylinders for this disk is set to 2432. There is nothing wrong with that, but this is larger than 1024, and could in certain setups cause problems with: 1) software that runs at boot time (e.g., old versions of LILO) 2) booting and partitioning software from other OSs (e.g., DOS FDISK, OS/2 FDISK) Command (m for help): p Disk /dev/hda: 20.0 GB, 20003880960 bytes 255 heads, 63 sectors/track, 2432 cylinders Units = cylinders of 16065 * 512 = 8225280 bytes Device Boot Start End Blocks Id System /dev/hda1 * 1 914 7341673+ c Win95 FAT32 (LBA) /dev/hda2 915 2432 12193335 5 Extended /dev/hda5 915 1615 5630751 83 Linux /dev/hda6 1616 1646 248976 82 Linux swap /dev/hda7 1647 2432 6313513+ 83 Linux Command (m for help): q
mount /mnt/hda5
mkdir /mnt/hda5/work mkdir /mnt/hda5/opt mkdir /mnt/hda5/opt/bin cd /mnt/hda5/work ncftp ftp2.tnc.edu.tw cd pub/unix/perl/CPAN/src get perl-5.8.0.tar.gz tar xvzf perl-5.8.0.tar.gz cd perl-5.8.0
./Configure -D prefix=/mnt/hda5/opt 然後任何問題都按 Enter 回答即可。 接著執行: make make test make install 即可 若一切順利,會在 /mnt/hda5/opt/bin 中找到剛安裝的 perl
本站所有圖文均屬網友發表,僅代表作者的觀點與本站無關,如有侵權請通知版主會盡快刪除。