perl-irc.github.io/index.html at master · perl-irc/perl-irc.github.io · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
<html>
	<head>
		<title>irc.perl.org</title>
	</head>
	<body bgcolor="black" text="white" link="gray" alink="white" vlink="white">
		<center>
<!-- http://www.perlmonks.org/?node_id=45213 -->
<table><tr><td><pre><tt>
                                           $_='ev
                                       al(&quot;seek\040D
           ATA,0,                  0;&quot;);foreach(1..3)
       {&lt;DATA&gt;;}my               @camel1hump;my$camel;
  my$Camel  ;while(             &lt;DATA&gt;){$_=sprintf(&quot;%-6
9s&quot;,$_);my@dromedary           1=split(//);if(defined($
_=&lt;DATA&gt;)){@camel1hum        p=split(//);}while(@dromeda
 ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif
        t(@dromedary1    ))&amp;&amp;/\S/){$camel1hump+=1&lt;&lt;$CAMEL;}
       $CAMEL--;if(d   efined($_=shift(@dromedary1))&amp;&amp;/\S/){
      $camel1hump+=1  &lt;&lt;$CAMEL;}$CAMEL--;if(defined($_=shift(
     @camel1hump))&amp;&amp;/\S/){$camel1hump+=1&lt;&lt;$CAMEL;}$CAMEL--;if(
     defined($_=shift(@camel1hump))&amp;&amp;/\S/){$camel1hump+=1&lt;&lt;$CAME
     L;;}$camel.=(split(//,&quot;\040..m`{/J\047\134}L^7FX&quot;))&#91;$camel1h
      ump&#93;;}$camel.=&quot;\n&quot;;}@camel1hump=split(/\n/,$camel);foreach(@
      camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\
      064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse;
       print&quot;$_\040$Camel\n&quot;;}foreach(@camel1hump){chomp;$Camel=$_;y
        /LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/;
         $_=reverse;print&quot;\040$_$Camel\n&quot;;}';;s/\s*//g;;eval;   eval
           (&quot;seek\040DATA,0,0;&quot;);undef$/;$_=&lt;DATA&gt;;s/\s*//g;(   );;s
             ;^.*_;;;map{eval&quot;print\&quot;$_\&quot;&quot;;}/.{4}/g; __DATA__   \124
               \1   50\145\040\165\163\145\040\157\1 46\040\1  41\0
                    40\143\141  \155\145\1 54\040\1   51\155\  141
                    \147\145\0  40\151\156 \040\141    \163\16 3\
                     157\143\   151\141\16  4\151\1     57\156
                     \040\167  \151\164\1   50\040\      120\1
                     45\162\   154\040\15    1\163\      040\14
                     1\040\1   64\162\1      41\144       \145\
                     155\14    1\162\       153\04        0\157
                      \146\     040\11     7\047\         122\1
                      45\15      1\154\1  54\171          \040
                      \046\         012\101\16            3\16
                      3\15           7\143\15             1\14
                      1\16            4\145\163           \054
                     \040            \111\156\14         3\056
                    \040\         125\163\145\14         4\040\
                    167\1        51\164\1  50\0         40\160\
                  145\162                              \155\151
                \163\163                                \151\1
              57\156\056
</tt></pre></td></tr></table>

			<p><a href="https://kiwiirc.com/nextclient/#irc://irc.perl.org/#perl">irc.perl.org</a> - Port 6667</p>
			<p><a href="https://kiwiirc.com/nextclient/#ircs://ssl.irc.perl.org:7062/#perl">ssl.irc.perl.org</a> - Port 7062</p>
			<p><i>This network has a <a href="rules.html">Standard of Conduct</a></i></p>
			<br />

			<p>[ <b><a href="faq.html">FAQ</a></b> ] [ <b><a href="rules.html">Rules</a></b> ] [ <b><a href="staff.html">Staff</a></b> ]</p>
			<p>[ <b><a href="channels.html">Channels</a></b> ]</p>


		</center>

		<div style="padding-top: 5em;">
			<center>
				<p>Sponsored by:</p>

				<table cellpadding="50">
					<tr>
						<td><a href="http://tamarou.com"><img border="0" src="tamarou.png" alt="Tamarou" /></a></td>
						<td>
							<a href="http://www.shadowcat.co.uk"><img border="0" src="sc.jpg" alt="Shadowcat Systems Limited" /></a>
						</td>
					</tr><tr>
						<td>&nbsp;</td>
						<td>
							<center><a href="http://perl.org"><img border="0" src="http://st.pimg.net/perlweb/images/camel_head.v25e738a.png" alt="perl.org" /><br />perl.org</a></center>
						</td>
						<td>&nbsp;</td>
					</tr>
				</table>
			</center>
		</div>


	</body>
</html>