|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T f
Length: 562 (0x232)
Types: TextFile
Names: »flip.t«
└─⟦4f9d7c866⟧ Bits:30007245 EUUGD6: Sikkerheds distributionen
└─⟦b5330643c⟧ »./cops/perl-4.019/perl.tar.Z«
└─⟦2b9a58213⟧
└─⟦this⟧ »perl-4.019/t/op/flip.t«
#!./perl
# $Header: flip.t,v 4.0 91/03/20 01:52:36 lwall Locked $
print "1..8\n";
@a = (1,2,3,4,5,6,7,8,9,10,11,12);
while ($_ = shift(a)) {
if ($x = /4/../8/) { $z = $x; print "ok ", $x + 0, "\n"; }
$y .= /1/../2/;
}
if ($z eq '5E0') {print "ok 6\n";} else {print "not ok 6\n";}
if ($y eq '12E0123E0') {print "ok 7\n";} else {print "not ok 7\n";}
@a = ('a','b','c','d','e','f','g');
open(of,'../Makefile');
while (<of>) {
(3 .. 5) && $foo .= $_;
}
$x = ($foo =~ y/\n/\n/);
if ($x eq 3) {print "ok 8\n";} else {print "not ok 8 $x:$foo:\n";}