89 lines
4.1 KiB
HTML
89 lines
4.1 KiB
HTML
<html>
|
|
<head>
|
|
<style type="text/css">
|
|
body {font-family: arial, helvetica, sans-serif;}
|
|
td {vertical-align: top;}
|
|
pre {float: right;}
|
|
.h1 {font-size: 110pt; text-align: center;}
|
|
.h2 {font-size: 40pt;}
|
|
p,td.top {font-size: 16pt; line-height: 20pt;}
|
|
pre {font-size: 6pt;}
|
|
</style>
|
|
</head>
|
|
<body>
|
|
<center>
|
|
<table width="5"><tr><td colspan="3">
|
|
<span class="h1">#! /usr/bin/perl</span><br />
|
|
<br />
|
|
<span class="h2">PVV arrangerer nybegynnerkurs i Perl</span><br />
|
|
<br />
|
|
<br />
|
|
<br />
|
|
</td></tr><tr><td class="top">
|
|
<p>
|
|
<table>
|
|
<tr><td class="top">Tid: </td><td class="top">Torsdag 28. oktober, fra 18:00 til 20:00</td></tr>
|
|
<tr><td class="top">Sted: </td><td class="top">Auditorium R8, Realfagsbygget</td></tr>
|
|
<tr><td class="top">Pris: </td><td class="top">Kr 50 for ikke-medlemmer, gratis for medlemmer (medlemsskap koster kr 42)</td></tr>
|
|
</table>
|
|
</p>
|
|
<p>
|
|
PVV arrangerer kurs for nybegynnere i programmerings- språket Perl. Vi fokuserer på hvordan man kan lage enkle script, og på å gi et grunnlag for å lære seg mer selv.</p>
|
|
<p>Kurset forutsetter litt programmeringserfaring, men halve IT-intro burde holde.</p>
|
|
<p>Kursholder: Knut Auvor Grythe</p>
|
|
</td><td width="20"></td><td>
|
|
<pre>
|
|
#!/usr/bin/perl -w
|
|
use strict;
|
|
$_='ev
|
|
al("seek\040D
|
|
ATA,0, 0;");foreach(1..2)
|
|
{<DATA>;}my @camel1hump;my$camel;
|
|
my$Camel ;while( <DATA>){$_=sprintf("%-6
|
|
9s",$_);my@dromedary 1=split(//);if(defined($
|
|
_=<DATA>)){@camel1hum p=split(//);}while(@dromeda
|
|
ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif
|
|
t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;}
|
|
$CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){
|
|
$camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(
|
|
@camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
|
|
defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
|
|
L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
|
|
ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
|
|
camel1hump){chomp;$Camel=$_;tr/LJF7\173\175`\047/\061\062\063
|
|
45678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;print"$_\040
|
|
$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y/LJF7\173\17
|
|
5`\047/12345678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;p
|
|
rint"\040$_$Camel\n";}#japh-Erudil';;s;\s*;;g;;eval; eval
|
|
("seek\040DATA,0,0;");undef$/;$_=<DATA>;s$\s*$$g;( );;s
|
|
;^.*_;;;map{eval"print\"$_\"";}/.{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
|
|
|
|
# camel code, copyright 2000 by Stephen B. Jenkins
|
|
# The use of a camel image with the topic of Perl
|
|
# is a trademark of O'Reilly & Associates, Inc.
|
|
# Used with permission.
|
|
</td></tr></table>
|
|
</pre>
|
|
</center>
|
|
</body>
|
|
</html>
|