原创 win7共享配置無線熱點
#!/usr/bin/perl -w #Author@Laomeng =pod 沒事就是寫着玩，這個工具可以吧。 =cut use utf8; use strict; use Encode::CN; use open ':
2020-06-28 02:52:58
原创 抓取日誌
=pod 腳本主要的功能是通過抓取日誌裏關鍵字，來統計日誌裏的所有接口調用量和接口響應時間 =cut #!/usr/bin/perl use strict; use warnings; use File::Find; use F
2020-06-28 02:52:58
原创 mysql--批量插入數據
#!/usr/bin/perl -w use strict; #Aothor@Laomeng #E-mail:[email protected] =syn1 背景：批量插入指定的格式的數據 nsert_logfile程序
2020-06-28 02:52:58
原创 perl&lwp下載圖片功能
#!/usr/bin/perl -w use strict; use LWP::Simple; binmode STDOUT,':encoding(UTF-8)'; my $imgurl = "http://imgsrc.b
2020-06-28 02:52:58
原创 perl-製作統計圖（折線）
#!/use/bin/perl =pod 製作MAMC-DMZ區域的TOP5統計圖 =cut use utf8; use Encode; use SVG::TT::Graph::Line; #database info
2020-06-28 02:52:58
原创 mysql備份表（按需配置）
MYSQL="/usr/bin/mysql" USER="root" PASSWD="abc123" DATDABASE="test" LTABLE="laomeng" BAKTABL="laomengbak" #判斷備份表是否
2020-06-28 02:52:58
原创 數據備份與還原
#!/bin/bash #Author@Laomeng #E_mail:[email protected] #Function:Backup CC database and table CCVERSION=`asterisk
2020-06-28 02:52:58
1
原创 CentOS下撥號上網（網絡轉載）
一、確實pppoe軟件包已經安裝 rpm -qa|grep rp-pppoe 二、運行 adsl-setup 命令，會出現相關提示，根據提示輸入賬號，密碼，還有DNS服務器地址即可： [ root@sysconfig ~ ]
2020-06-28 02:52:58
原创 linux輕量小型批量工具
linux輕量小型批量工具http://blog.csdn.net/jackm1688/article/details/79302620點擊打開鏈接
2020-06-28 02:52:58
原创 linux"$* "$*" $@ "$@"用法解釋
############################################################### $* cat laomeng.sh #!/bin/bash echo "Laomeng $*"
2020-06-28 02:52:58
原创 檢查局域網存活主機
#!/bin/bash IPDIR="/opt/" if [ -f ${IPDIR}"upip" ]; then rm -rf /opt/upip rm -rf /opt/ipdown fi #exit 0 for i
2020-06-28 02:52:58
原创 php上傳文件代碼
<!DOCTYPE hmtl> <html> <head> <meta charset="utf8"> <title>upload</title> </head> <body> <form action="upload_
2020-02-24 04:05:49
原创 perl內置變量的解釋
登錄 首頁專欄專家熱文 lreper 的專欄 [轉]perl 中的特殊內置變量 2013-1-21 閱讀500 評論0 $- 當前頁可打印的行數,屬於Perl 格式系統的一部分 $! 根據上下文內容返回錯誤號或者錯誤串 $” 列表
2020-02-24 04:05:49
原创 Linux系統下批量修改文件名稱
#!/bin/bash #批量修改文件名稱 cd /opt/test for lfile in * do lnew=`echo $lfile |awk '{print $0}'|sed -n 's/ippbx/idds/p'`
2020-02-24 04:05:49
原创 perl對象
#!/usr/bin/perl =pod [1]對象就是一個引用 [2]類就是包 [3]方法就是子例程 =cut #方法調用 =pod 對於類方法而言,調用者是包的名字 對於實例方法而言,調用者是指定對
2020-02-24 04:05:39