हम LJ / LI में पोस्ट देखने के लिए आंकड़े एकत्र करते हैं

मैंने विभिन्न भाषाओं में बहुत सारी स्क्रिप्ट देखीं जो मुझे बताएंगी कि मुझे अपने आगंतुकों के बारे में कैसे पता लगाना है। लेकिन वे सभी बहुत अजीब थे और कुछ जगहों पर मेरे लिए अतुलनीय चीजों की मांग की।
इस तथ्य के कारण कि मैंने अपने पूरे जीवन में पर्ल में लिखा था, मैंने सोचा कि यह पता लगाना अच्छा होगा कि चीजें एक समान समस्या के समाधान के साथ कैसे चल रही हैं।
कार्य स्वयं तुच्छ है और इसका समाधान सरल है। खासकर PHP में।
लेकिन मुझे PHP पसंद नहीं है। और मोती कभी भी वेब के लिए उपयोग नहीं किया जाता है।

इसलिए, शाम को निम्नलिखित कोड फेंका गया:

#!/usr/bin/perl -w #    use strict; use warnings; use CGI::WebOut(1); use Mail::Mailer; #   my( $topic , $date , $ref , $flag , $tmp ); my( $query , $pair , $name , $value , $input ); my @pairs; my %input; my( $to_address , $subject , $mailer , $body , $from_address ); $date = `/bin/date "+%Y-%m-%d %H:%M"`; #         $to_address = 'info@microsoft.com'; #    $from_address = 'abuse@microsoft.com'; #    $flag = 0; #   if( $ENV{'REQUEST_METHOD'} eq 'GET' ){ #   $query=$ENV{'QUERY_STRING'}; } elsif( $ENV{'REQUEST_METHOD'} eq 'POST' ){ sysread( STDIN , $query , $ENV{'CONTENT_LENGTH'}); } $ref = $ENV{'HTTP_REFERER'}; #    @pairs = split( /&/ , $query ); #    foreach $pair ( @pairs ){ ( $name , $value ) = split( /=/ , $pair ); # 1=1 () if( defined( $name )){ #    if( !( defined( $value ))){ #    next; #   } } $value =~ tr/+/ /; #     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg; #  $value =~ s/<!--(.| )*-->//g; #   ( ? =) $input{$name} = $value; #   if( $name ne 'topic' ){ #   Topic? if( $flag == 0){ #     0 ? $flag = 0; #   ! } } if( $name eq 'topic' ){ # !    ! $topic = $value; #   $body .= "Topic: $topic\n"; #     $flag++; #     } #    ,    - , #     # if( $name eq 'mail' ){ # if( !(length( $value ))){ # $value = 'info@microsoft.com'; # } # } } if( !( defined( $flag ))){ ololo(); } #    (  ?       ! if( !( defined( $value ))){ ololo(); } #  ... if( $flag == 0 ){ ololo(); } #      if( defined( $ENV{'REMOTE_ADDR'} )){ $body .= "Remote address: $ENV{'REMOTE_ADDR'}\n"; #     ! } else{ $body .= "Remote address is unknown\n"; #  ... } if( defined( $ENV{'REMOTE_HOST'} )){ $body .= "Remote host: $ENV{'REMOTE_HOST'}\n"; #     } else{ $body .= "Remote host is unknown\n"; #       } if( defined( $ref )){ $body .= "Referer: $ref\n"; #    ! } else{ $body .= "Referer is unknown\n"; #    } $body .= "Date: $date\n"; #   $subject = "$topic at $date"; #    $mailer = Mail::Mailer->new(); #     $mailer->open({ From => $from_address, #  To => $to_address, #  Subject => $subject, #   }) or ololo(); # print "Can't open: $!\n"; # ,   ...    print $mailer $body; # ... $mailer->close(); sub ololo{ #    undef @pairs; undef %input; undef $topic; undef $date; undef $ref; undef $flag; undef $tmp; undef $query; undef $pair; undef $name; undef $value; undef $input; undef $to_address; undef $subject; undef $mailer; undef $body; undef $from_address; exit 0; } 

Inhtaccess में, मैंने यह लिखा है:
Options +Includes +ExecCGI
अपने एलजे रिकॉर्ड में, मैं इस तरह की बात लिखता हूं:

 <div style="display:none"> <img src="http://myserver.ru/lj.pl?topic=PLAZMOTRON" width=1> </div> 
 

<div style="display:none"> <img src="http://myserver.ru/lj.pl?topic=PLAZMOTRON" width=1> </div>

जहाँ

1. lj.pl - स्क्रिप्ट नाम
2. विषय - आपके विषय का नाम जो LiveJournal में प्रविष्टि की पहचान करता है (इस मामले में, PLAZMOTRON)

ऐसा लगता है कि आपको एक जिफ़ डमी निर्दिष्ट करने की आवश्यकता है जो दी जाएगी, लेकिन या तो मेरे पास एक काफी आधुनिक ब्राउज़र (फ़ायरफ़ॉक्स 3.6.17) है, या मैं कुछ समझ नहीं पा रहा हूं, मैना को रोशन कर रहा हूं, लेकिन स्क्रिप्ट काफी काम कर रही है।
इसके लिए मज़ा, आप एक काउंटर या कुछ और उपयोगी चकाचौंध कर सकते हैं।

यह उदाहरण स्क्रिप्ट उन लोगों के लिए उपयोगी है जो पर्ल के उपयोग से वेब के साथ काम करना शुरू कर रहे हैं (यह सिर्फ मेरे बारे में है)।
मेसन या CGI जैसे राक्षसी मॉड्यूल के बिना काम करने का सबसे सरल तरीका, 500 वीं त्रुटि से बचना और सभी प्रकार के प्रिंट "टेक्स्ट / सादे \ n \ n";

आपका धन्यवाद