顯示文章

這裡允許您檢視這個會員的所有文章。請注意, 您只能看見您有權限閱讀的文章。


文章 - jochang6

頁: [1] 2 3 ... 6
1
database 討論版 / COUNT 函數加總計算的問題
« 於: 2007-07-26 23:21 »
感謝學長回應
當然沒有一定要這樣作,只是想了解可不可以做到
sql的功力不夠,讓大大見笑了  :oops:

2
database 討論版 / COUNT 函數加總計算的問題
« 於: 2007-07-26 11:54 »
Dear All,狀況是這樣的

用以下查詢,可得到一個count數
SELECT COUNT(SrcPort)
FROM 192_168_1_111
WHERE (`SrcPort` =80)AND (`Start_time` Between '2007-07-26 10:40:00' and
'2007-07-26 10:50:59' )

再用以下查詢,可得到另一個count數
SELECT COUNT(DstPort)
FROM 192_168_1_111
WHERE (`DstPort` =80)AND (`Start_time` Between '2007-07-26 10:40:00' and
'2007-07-26 10:50:59' )

我的疑問是:請教這兩筆查詢可以一次完成嗎?弟怎麼試都不成功... :x

3
感謝!解決了,括號改一下,意義就不同了. :D

SELECT `192_168_1_111`.`SrcPort` , `192_168_1_111`.`DstPort` ,`192_168_1_111`.`Start_time`
FROM 192_168_1_111
WHERE (( `192_168_1_111`.`SrcPort` =80 ) OR ( `192_168_1_111`.`DstPort` =80 ))AND (`192_168_1_111`.`Start_time` Between '2007-07-24 16:21:00' and '2007-07-24 16:30:59' )

如此,AND條件即成為必要條件了
聖經就是GOOGLE和酷學園了  :D

4
各位好,弟有個問題請教

目前想從一個table中找出某段時間內的資料
table中有個欄位資料型態是datetime
資料格式為 2007-07-24 15:43:53

使用以下的語法:
SELECT `192_168_1_111`.`SrcPort` , `192_168_1_111`.`DstPort` ,`192_168_1_111`.`Start_time`
FROM 192_168_1_111
WHERE (
(
`192_168_1_111`.`SrcPort` =80
)
OR (
`192_168_1_111`.`DstPort` =80
)
AND (
`192_168_1_111`.`Start_time`  Between '2007-07-24 16:21:00' and '2007-07-24 16:30:59'
)
)

如此可行,但連這段時間之外的紀錄也會出現,這是為什麼呢?  :-?
15:XX 和 17:XX的資料都跑出來了...
不好意思,SQL不是很熟,SQL語法有哪本書是經典嗎?

5
擺著幾天再回去看,終於搞定了!結果還是空白搞的鬼
最後還是用split抓出來了,學長果然是有先見之明
大致如下:

$index_page =~ s/ <.*?> / /gx;
$index_page =~ s/ Next / /gx;

# 用split,區隔符號為空白鍵,把頁數的值放入陣列
@fields = split / \s+ / , $index_page;
再把所要的陣列值抓出來即可

總算把我要的頁數抓出來了!  :oops:

6
引述: "jochang6"

仍能得到 1 2 3 4
再測試用$index[$i] =~ / \s+ /gx;

這裡打錯了!是 $index[$i] =~ s/ \s+ / /gx;

7
嗯嗯,我了解大大的意思

$_=12345;
m/\d$/;
print $&;

這樣確實是可以印出 5

但用在弟要解決的問題上還是不行
目前要處理的字串如下 (這幾行之間沒有換行)
1 <a href="http://www.xxx.yyy/doc/foobar&list=1&page=2">2</a> <a
href="http://www.xxx.yyy/doc/foobar&list=1&page=3">3</a> <a href="http://www.
wretch.cc/doc/foobar&list=1&page=4">4</a> <a href="http://www.xxx.yyy/doc/foobar&list=1&page=2">Next</a>          </div>


弟要抓出最後的那個數字 4
$index[$i]為字串內容
經過以下過濾  
$index[$i] =~ s/ <.*?> / /gx;
$index[$i] =~ s/ \D+ / /gx;
可以得到 1 2 3 4
但再加上$index[$i] =~ / \d$ /x;
仍能得到 1 2 3 4
再測試用$index[$i] =~ / \s+ /gx;
想把1 2 3 4 之間的空白去掉,想得到1234
但結果還是不變
真不知道1 2 3 4 之間到底是什麼將他們隔開的?  :-?

8
又問到一個新問題了!
假設一個變數內容
內容是1 2 3 4 5 (彼此用空白隔開)
只想要抓出最後一個5
那該怎麼做呢?
....想半天,目前還沒有idea  :x

9
引述: "twu2"
為什麼要加上 " ?
不加就可以了吧.

如果怕該名字是保留字, 在 mysql 是用 ` 而不是 " 來當引號. (不過後頭的欄位名為什麼又不加呢? 難道就一定不會是保留字?)


感謝學長指導,
沒錯!不加"就可以了
之前不知道在傻什麼.... :oops:
感謝啊!

10
請教各位大大們
以下的程式碼
連上資料庫後.建立bbb table 沒問題

#!/usr/bin/perl
use DBI;

$dsn = 'DBI:mysql:aaa:127.0.0.1';
$db_user_name = 'root';
$db_password = '123456';
$dbh = DBI->connect($dsn,
                    $db_user_name,
                    $db_password,
                   {
                        RaiseError => 1,
                        AutoCommit => 0
                   }
        )
        ||(die "Datebase connection not made:$DBI::errstr");



my $sql = qq{ CREATE TABLE bbb ( id INTEGER NOT NULL,
                                       name VARCHAR(128),
                                       title VARCHAR(128)
                                     ) };
$dbh->do( $sql );

$dbh->disconnect();

現在我想將要建立的table用變數取代
該怎麼做呢?
測試:
先設好 $tablename=bbb;
將CREATE TABLE bbb  改為 CREATE TABLE "$tablename"
執行後出現錯誤:

DBD::mysql::db do failed: You have an error in your SQL syntax near '"bbb" ( id
INTEGER NOT NULL,
                                       name VARCHAR' at line 1 at 20070519mysql.
pl line 29.
DBD::mysql::db do failed: You have an error in your SQL syntax near '"bbb" ( id
INTEGER NOT NULL,
                                       name VARCHAR' at line 1 at 20070519mysql.
pl line 29.

也試過用單引號將變數包起來,一樣不行
該如何讓perl用此變數當作table name呢?  :-?

11
程式討論版 / PERL 正規表示式的問題
« 於: 2007-04-17 13:14 »
用這種方式是可以寫出來,只是還有其他東西要抓,每抓一次要想一次挺麻煩的
在CAPN發現有現成的模組可用 HTML::Parser  :D
http://search.cpan.org/~gaas/HTML-Parser-3.56/Parser.pm
功能如名稱一樣,餵給它html檔
可以解析出需要的標籤內容

範例如下,要先準備好一個名稱為amarylliss的html檔
執行後印出內文中的網址

#!/usr/bin/perl -w

sub geturl{
        use HTML::Parser;
        $userid = $_[0];

        open FHD,"$userid" or die "fail";

        my $parser = HTML::Parser->new(api_version =>3);
        $parser->handler(start => \&print_link, 'tagname,attr');

     }

sub print_link {
        my ($tagname,$attr) = @_;
        if ($tagname eq 'a') {
                print "link:",$attr->{href},"\n";
                }
}

$rt = &geturl("amarylliss");

my $parser = HTML::Parser->new(api_version =>3);
$parser->handler(start => \&print_link, 'tagname,attr');

$parser->parse($_) while <FHD>;
$parser->eof;

12
程式討論版 / PERL 正規表示式的問題
« 於: 2007-04-09 13:30 »
感謝學長提供的資料
小弟好好研究一下
 :)

13
程式討論版 / PERL 正規表示式的問題
« 於: 2007-04-08 00:16 »
概略的把要的東西抓出來了!但離我要的還差一點
程式碼如下:

#!/usr/bin/perl -w

sub geturl{

   use LWP::Simple;
   $userid = $_[0];
   $url = "http://www.wretch.cc/blog/$userid";
   $content = get $url;
   die "Couldn't get $url" unless defined $content;

   
   open CONTENT, "> $userid" or die "fail";
   print CONTENT $content;
   close CONTENT;


   open FHD,"$userid" or die "fail";
   @all=<FHD>;

### 比對陣列中的值,有符合 href= 的把後面的值印出來      
   foreach $all (@all){
      if($all =~ /href=/) {
                print "$'\n";
        }
   
   }
   

   close FHD;
   
    }

$rt = &geturl("amarylliss");


現在抓出來的會像這樣
"http://www.wretch.cc/blog/amarylliss&rss20=1" />

"http://pic51.pic.wretch.cc/photos/27/a/amarylliss/files/blog.css?1175947388" type="text/css" />

"http://pic.wretch.cc/photos/css/blog/font.css" type="text/css" />

"" title=""><a href="http://www.pala88.com" target="_blank">^M

"javascript:(function(){d=document;w=window;t='';if(d.selection){t=d.selection.createRange().text;}else{if(d.getSelection){t=d.getSelection();}else{if(w.getSelection){t=w.getSelection()}}}void(window.open('http://myshare.url.com.tw/index.php?func=newurl&from=mysharepop&url='+encodeURIComponent(location.href)+'&desc='+escape(document.title)+'&contents='+escape(t),'newwin','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=1,width=510,height=420'))})();">^M

可是只想要網址就好了
大大們!可以給點建議嗎?    :x

14
程式討論版 / PERL 正規表示式的問題
« 於: 2007-03-31 23:42 »
檔案如下:

#!/usr/bin/perl -w

sub geturl{

        use LWP::Simple;
      #取得該帳號首頁資料
        $userid = $_[0];
        $url = "http://www.wretch.cc/blog/$userid";
        $content = get $url;
        die "Couldn't get $url" unless defined $content;

        #把資料存到檔案中
        open CONTENT, "> $userid" or die "fail";
        print CONTENT $content;
        close CONTENT;

        #把檔案內容放到陣列中
        open FHD,"$userid" or die "fail";
        @all=<FHD>;
        }

#傳入帳號名到副程式geturl
$rt = &geturl("amarylliss");

#印出陣列前兩筆內容
print @all[0];
print @all[1];

--------------------------------------------------------
執行的結果:會把此帳號的網頁資料前兩行內容印出來,一行是空白,一行是<!DOCTYPE html PUBLIC 開頭那一行,如下

[root@home myperl]# perl f022.pl
Scalar value @all[0] better written as $all[0] at f022.pl line 24.
Scalar value @all[1] better written as $all[1] at f022.pl line 25.
Name "main::rt" used only once: possible typo at f022.pl line 23.

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
註:前三行的警告訊息,不知道怎麼消除  :oops:
而我的問題目前應為:不知道怎樣比對陣列內容
我的想法是:如果我比對到herf=或http:就可以把我要的資料放到另一個陣列中
請大大們賜教。

15
程式討論版 / PERL 正規表示式的問題
« 於: 2007-03-29 23:21 »
各位同好,
弟最近再做一份報告
請問個正規表示式的問題

在一堆網頁字串中,如以下
<div class="extended">
href="http://www.wretch.cc/blog/amarylliss&article_id=14371298#postComments"> href="http://www.wretch.cc/blog/amarylliss&article_id=14371298#trackbacks">
   </div> <!-- end of blogbody2 -->
         </div> <!-- end of blogbody -->
         <div class="date">
            <div class="datediv">
               March 27, 2007
            </div>
         </div>
            <div class="blogbody">
            <div class="blogbody2">

我用perl想把 herf= 之後的網址抓出來 該怎麼做呢?
一直抓不出來..... :(

16
最近剛在摸perl,有個問題請教
我這個練習用的程式

#!/usr/bin/perl -w

sub geturl{

        use LWP::Simple;
        $url = "http://www.wretch.cc/blog/$userid";
        $content = get $url;
        die "Couldn't get $url" unless defined $content;

        open CONTENT, ">./userid" or die "fail";
        print CONTENT $content;
        close CONTENT;

        }

$userid = &geturl("popokiku");

是可以執行,但都會警告:
[root@abcd myperl]# perl f02.pl
Use of uninitialized value in concatenation (.) or string at f02.pl line 10.

我該怎麼修正此問題呢?

17
弟試過用find來找
但find的參數是找多久未被修改或未被存取的檔案
但我想找的是只要超過時間的
我就要把它過濾出來,不管有無被存取使用
不知各位同好有何好主意嗎?   :x

18
弟為客戶安裝的postfix mail server 運作一年多
偶爾會有此問題(非常少的頻率)
也曾試圖去尋找原因
但沒有結果....
有找到一個特徵
這些信大都是經過多次回覆、轉寄的

19
引述: "charge"
引述: "jochang6"
引述: "netman"
或許反過來:

email 帳號用 radius 認證.

嘿嘿,沒錯!
netman大果然厲害
後來就是這麼搞~ :lol:


那該如何設定呢?

那就簡單了啊!
只是在mail server再新增radius服務就好了
然後無線認證主機再增加這台mail server
那有mail account 的使用者直接選這台來做認證即可。
 :wink:

20
Linux 討論版 / radiusd需要重複認證的問題
« 於: 2006-03-14 17:23 »
引述: "sincat"
freeradius 是不會判別 帳號是否重複登入的

當然會,我重裝了幾台試過了
不然仁兄以為我提問是吃飽太閒嗎? :evil:

21
引述: "netman"
或許反過來:

email 帳號用 radius 認證.

嘿嘿,沒錯!
netman大果然厲害
後來就是這麼搞~ :lol:

22
有聽說過是要裝個pam_pop3的東西
但弟也沒試出來
 :oops:

23
Linux 討論版 / radiusd需要重複認證的問題
« 於: 2006-03-02 17:02 »
Dear All Linux ,
弟遇到個棘手的問題
客戶說要用無線  
原本都用的好好的
今天大頭突然來一招
說要讓同一個帳號可以重複經過radiusd認證
而且是這幾天就要用
但預設機制是檢查此帳號有人登入了就禁止再登入
這該從那邊下手呢?
弟也正在網路上查資料但還沒下落...
是linux上的freeradius... :x

感覺應該是radiusd.conf or users 這兩個檔
努力K說明中

24
openwebmail安裝好應該有這個檔openwebmail.conf.help
到裡面找此關鍵字 frombook_for_realname_only 即可

25
弟實做了此部分

Protecting internal email distribution lists
We want to implement an internal email distribution list. Something like all@our.domain.com, which aliases to all employees. My first thought was to use the aliases map, but that would lead to "all" being accessible from the "outside", and this is not desired... :-)

Postfix can implement per-address access controls. What follows is based on the SMTP client IP address, and therefore is subject to IP spoofing.

/etc/postfix/main.cf:
    smtpd_recipient_restrictions =
        check_recipient_access hash:/etc/postfix/access
        ...the usual stuff...

/etc/postfix/access:
    all@my.domain   permit_mynetworks,reject
    all@my.hostname permit_mynetworks,reject
Specify dbm instead of hash if your system uses dbm files instead of db files. To find out what map types Postfix supports, use the command postconf -m.

Now, that would be sufficient when your machine receives all Internet mail directly from the Internet. That's unlikely if your network is a bit larger than an office. For example, your backup MX hosts would "launder" the client IP address of mail from the outside so it would appear to come from a trusted machine.

In the general case you need two lookup tables: one table that lists destinations that need to be protected, and one table that lists domains that are allowed to send to the protected destinations.

What follows is based on the sender SMTP envelope address, and therefore is subject to SMTP sender spoofing.

/etc/postfix/main.cf:
    smtpd_recipient_restrictions =
        check_recipient_access hash:/etc/postfix/protected_destinations
        ...the usual stuff...

    smtpd_restriction_classes = insiders_only
    insiders_only = check_sender_access hash:/etc/postfix/insiders, reject

/etc/postfix/protected_destinations:
    all@my.domain   insiders_only
    all@my.hostname insiders_only

/etc/postfix/insiders:  
    my.domain       OK  matches my.domain and subdomains
    another.domain  OK  matches another.domain and

subdomains
Getting past this scheme is relatively easy, because all one has to do is to spoof the SMTP sender address.

If the internal list is a low-volume one, perhaps it makes more sense to make it moderated.

看說明像是說:可限制哪些domain可以使用protected_destinations
但又看了insiders_only = check_sender_access hash:/etc/postfix/insiders, reject中
check_sender_access 的說明;其中有這樣的用法
/etc/postfix/access:
           1.2.3   REJECT
           1.2.3.4 OK

所以我將我的改為

@mail1.xxx.edu.tw      REJECT
@mail2.xxx.edu.tw      REJECT
jackson@mail2.xxx.edu.tw        OK  matches my.domain and subdomains

jackson@mail2.xxx.edu.tw是我的管理帳號
我希望這兩台機器的帳號只有我的帳號可以對protected_destinations發信
將相關的設定加入main.cf
執行postconf確認設定檔OK
兩個table檔編輯好,用postmap轉成db2檔
重新啟動postfix
然後寄信試試看,依然都可以寄到
試不出來.... :-?
這兩個table檔的內容格式這樣有誤嗎?
有辦法檢查table是否正確嗎?
不知哪位伙伴對此有經驗

26
感謝提供的資料
小弟研究一下
 :)

27
linux的伙伴:
小弟遇到一個疑惑的問題
假如我的郵件系統上有一個叫teacher@mydomain.edu
是所有老師的帳號
我只想讓我管理者的帳號可以寄
別人都不能寄
這該怎麼做呢?
mail server 是用postfix
找不到相關資料... :oops:

28
BSD 討論版 / freebsd 5.4 mount linux hdd
« 於: 2005-10-28 13:52 »
各位大大
小弟有一顆linux system HDD 壞了
有些資料嘗試救出來
現在拿到一台freebsd system
當mount的時候,出現以下訊息

root@freebsd# mount -t ext2fs /dev/ad2s1 /mnt/ad2s2_ext2fs
ext2fs: /dev/ad2s1: Operation not permitted

是沒救了嗎?:(

29
感謝回覆!

目前我的設定如下
# Notifications back to the senders of blocked messages
# -----------------------------------------------------
#

# Do you want to notify the people who sent you messages containing
# viruses or badly-named filenames?
# This can also be the filename of a ruleset.
Notify Senders = yes

# *If* "Notify Senders" is set to yes, do you want to notify people
# who sent you messages containing viruses?
# The default value has been changed to "no" as most viruses now fake
# sender addresses and therefore should be on the "Silent Viruses" list.
# This can also be the filename of a ruleset.
Notify Senders Of Viruses = no

# *If* "Notify Senders" is set to yes, do you want to notify people
# who sent you messages containing attachments that are blocked due to
# their filename or file contents?
# This can also be the filename of a ruleset.
Notify Senders Of Blocked Filenames Or Filetypes = yes

# *If* "Notify Senders" is set to yes, do you want to notify people
# who sent you messages containing other blocked content, such as
# partial messages or messages with external bodies?
# This can also be the filename of a ruleset.
Notify Senders Of Other Blocked Content = yes

# If you supply a space-separated list of message "precedence" settings,
# then senders of those messages will not be warned about anything you
# rejected. This is particularly suitable for mailing lists, so that any
# MailScanner responses do not get sent to the entire list.
Never Notify Senders Of Precedence = list bulk

病毒信應該不會回覆給寄件者

而郵件佇列中出不去的信有:

[root@mail1 ~]# mailq
-Queue ID- --Size-- ----Arrival Time---- -Sender/Recipient-------
238B638C0B0     3162 Fri Jul 29 09:52:48  MAILER-DAEMON
                       (connect to 12.com[206.13.63.21]: Connection timed out)
                                         1212@12.com

17BB138C0AC     5124 Fri Jul 29 19:51:40  MAILER-DAEMON
        (connect to mailss.pomailer.com[219.80.177.161]: Connection timed out)
                                         vzbejyi@ujhy.com

34DEB38C739     3185 Fri Jul 29 20:06:48  MAILER-DAEMON
                       (connect to 12.com[206.13.63.21]: Connection timed out)
                                         1212@12.com

不知道要怎麼讀它的內容呢?
想檢查一下
但駐列檔用VI是亂碼~

30
引述: "duncanlo"
曾遇過是防毒牆的設定,
有設定回信給中毒信的寄件人,
但廣告信都是假的來源地址,
所以信就永遠寄不出去,


那請問有什麼方式
可以不要回這些信嗎?
可以直接讓MailScanner丟掉

頁: [1] 2 3 ... 6