পার্স :: আইআরসি আইআরসি প্রোটোকলের জন্য একটি পার্সার
এখনই ডাউনলোড করুন

পার্স :: আইআরসি র‌্যাঙ্কিং ও সারাংশ

পার্স :: আইআরসি ট্যাগ

আইআরসি পার্ল মডিউল পার্ল পার্সার আইআরসি পার্সার

পার্স :: আইআরসি বর্ণনা

আইআরসি প্রোটোকলের জন্য একটি পার্সার পার্স :: আইআরসি একটি পার্ল মডিউল যা আইআরসি প্রোটোকলের সাথে সামঞ্জস্যপূর্ণ পাঠ্যের লাইনগুলির একটি সুবিধাজনক উপায় সরবরাহ করে (RFC1459 বা RFC2812 দেখুন)। SynopSISSERAl ব্যবহার: কঠোর ব্যবহার করুন; পার্স ব্যবহার করুন :: আইআরসি; # কার্যকরী ইন্টারফেস আমার $ hashref = parse_irc ($ irc_string); # ওও ইন্টারফেস আমার $ IRC_PARSER = PARSE :: irc-> নতুন (); আমার $ HASHREF = $ IRC_PARSER-> পার্স ($ IRC_STRING); পার্স ব্যবহার করে :: একটি সহজ আইআরসি বট: # পার্স ব্যবহার করে একটি সহজ আইআরসি বট :: আইআরসি কঠোর ব্যবহার করুন; io :: সকেট ব্যবহার করুন; পার্স ব্যবহার করুন :: আইআরসি; আমার $ পার্সার = পার্স :: irc-> নতুন (পাবলিক => 1); আমার% dispatch = ('পিং' => \ irc_ping, '001' => \ irc_001, 'সর্বজনীন' => \ irc_Public); # সার্ভার সংযোগ করতে এবং আমাদের বিবরণ। আমার $ সার্ভার = "irc.perl.moo"; আমার $ নিক = "parseirc $$"; আমার $ লগইন = "Simple_Bot"; # চ্যানেল যা বট যোগদান করবে। আমার $ চ্যানেল = "# irc.pm"; # আইআরসি সার্ভারে সংযোগ করুন। আমার $ SOCK = NEW IO :: Socket :: INET (PEERADDR => $ সার্ভার, PEEROPT => 6667, PROTO => TCP ') অথবা মরা "সংযোগ করতে পারে না"; # সার্ভারে লগ ইন করুন। মুদ্রণ $ sock "নিক $ নিক \ r \ n"; মুদ্রণ করুন $ SOCK "ব্যবহারকারী $ লগইন 8 *: পার্ল IRC হ্যাক রোবট \ r \ n"; # সার্ভার থেকে লাইন পড়া রাখা। যখন (আমার $ ইনপুট =) {$ ইনপুট = ~ s / \ r \ n // g; আমার $ HASHREF = $ পার্সার-> পার্স ($ ইনপুট); স্যুইচ করুন: {আমার $ টাইপ = এলসি $ HASHREF -> {কমান্ড}; আমার @ রেঞ্জ; Push @ARGS, $ HASHREF -> {PRIFIX} যদি $ HASHREF -> {উপসর্গ}; Push @ {$ hashref -> {params}}; যদি (নির্ধারিত $ প্রেরণ {$ টাইপ}) {$ প্রেরণ {$ টাইপ} -> (@ args); শেষ সুইচ; } stdout যোগদান করুন ('', "irc_ $ টাইপ:", @args), "\ n"; }} সাব irc_ping {আমার $ সার্ভার = স্থানান্তর; মুদ্রণ $ sock "পং: $ সার্ভার \ r \ n"; ফিরে 1; } সাব irc_001 {stdout- এ প্রিন্ট "$ তে সংযুক্ত: _ \ N"; $ সক "$ চ্যানেল JOIN পান \ r \ N" মুদ্রণ; ফিরে 1; } সাব irc_public {আমার ($ যারা $ যেখানে, $ কি) = @_; প্রিন্ট "$ যারা -> $ যেখানে -> $ কি \ N"; ফিরে 1; } প্রয়োজনীয়তা: · পার্ল

পার্স :: আইআরসি সম্পর্কিত সফটওয়্যার