#!/usr/bin/perl

($one,$two)=&Test();

@array1=@$one;

hweily 發表在 痞客邦 留言(0) 人氣()

(1) 在[開始],[附屬應用程式]中,在[命令提示字元]按滑鼠右鍵,選擇[以系統管理員身分執行]

(2) 在命令提示字元中,使用以下命令來啟用 Administrator 帳戶,輸入後按 [Enter] 執行。

"net user administrator /active:yes"

hweily 發表在 痞客邦 留言(0) 人氣()

利用 grep 第一個key-word後,再導向搜尋 key-word;只印出檔名
[root@server username]#grep -l '搜尋字串' *.txt|xargs grep -L '符合字串'

hweily 發表在 痞客邦 留言(0) 人氣()

使用 "--" 或 "./" 可解決此問題

更名
mv -- -AA BB
mv ./-AA BB

hweily 發表在 痞客邦 留言(0) 人氣()

最近要安裝CentOS 5.6的iso檔,
如下:
CentOS-5.6-i386-bin-DVD-1of2.iso
CentOS-5.6-i386-bin-DVD-2of2.iso。
先將檔名改為 a.iso 及 b.iso,
把這2個檔案放在同一個目錄下
在「開始」-「執行」中鍵入cmd,進入命令提示模式。
copy /b a.iso+b.iso centos.iso,
OK!
在Linux環境下
先解壓縮到各別目錄,再合併
[root@~]# unzip CentOS-5.6-i386-bin-DVD-1of2.zip
[root@~]# unzip CentOS-5.6-i386-bin-DVD-2of2.zip
[root@~]# cat CentOS-5.6-i386-bin-DVD-1of2 CentOS-5.6-i386-bin-DVD-1of2 > CentOS-5.6-i386-bin-DVD.iso

hweily 發表在 痞客邦 留言(2) 人氣()

#!/usr/bin/perl
# name.pl
$pre_a =$ARGV[0];

$pre_b =$ARGV[0];

hweily 發表在 痞客邦 留言(0) 人氣()

#!/usr/bin/perl

@array1=(1..12);
@array2=qw(2 4 6 8 10 12);
foreach $tmp(@array1){

hweily 發表在 痞客邦 留言(0) 人氣()

echo %date% 結果為 yyyy/MM/dd
echo %date:~0,4% 結果為 yyyy
echo %date:~5,2% 結果為 MM
echo %date:~8,2% 結果為 dd

hweily 發表在 痞客邦 留言(0) 人氣()

$text = "abc,abcd,abcdee";
為避免誤判,
$text = str_replace("abc ", "ghi", $text);

hweily 發表在 痞客邦 留言(0) 人氣()

$text = "abc,abcd,abcdee";
If $text contains UTF-8 text, you'll have to add the Unicode modifier "u", so that non-latin characters are not misinterpreted as word boundaries:
$text = preg_replace('/\babc\b/u', 'ghi', $text);

hweily 發表在 痞客邦 留言(0) 人氣()

SELECT col_1,count(col_1)"Col_1_count"
FROM TABLE
WHERE col_1 not like ''
GROUP BY col_1

hweily 發表在 痞客邦 留言(0) 人氣()

連接MySQL
Perl 要搭配資料庫,必須安裝以下模組:
1. DBI : Perl 的 DataBase Interface 的簡稱,

hweily 發表在 痞客邦 留言(0) 人氣()

Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲,請立即離開。

已滿十八歲者,亦請勿將內容提供給未成年人士。