[quote=Nahz.Is.Fab]Fine na fine pero bored.
----------------
Mode: Bored
Question: Who wants to kill my boredomeness?[/quote]
Ask the .. serial killers. haha..kiddin.
[quote=nanix84]yoh! ruki!
tapos na ba yung project?
patingin
I wanna learn pearl since it is a scripting language also like autoIT
[/quote]
hnd p perfect n perfect, papa edit ko p sa group mate ko
hehe...
Asa na dapit ang talamban??
[quote=---xXirukiTepe---]Ask the .. serial killers. haha..kiddin.[/quote]
I 'll try. Sino ba sila?
Last edited by Nahz.Is.Fab (2008-11-02 01:50:57)
[/quote]
12 y.o. ka last 10 years?
sa talamban gud! kanang naay san carlos ba...
[quote=---xXirukiTepe---]hnd p perfect n perfect, papa edit ko p sa group mate ko
hehe...
[/quote]
Owsss
ano ba yung project nyo?
San Carlos?? wala ko kabalo oi.
[quote=losher29]bored din[/quote]
I see.
Last edited by Nahz.Is.Fab (2008-11-02 01:56:47)
[/quote]
hnd ko dn klala..
[quote=nanix84]Owsss
ano ba yung project nyo?[/quote]
eto p lang ngagawa ko..
[spoiler]#!/usr/bin/perl -w
#Group 3: UST INFO TECH DEPARTMENT
#TO BE SUBMITTED: NOVEMBER 21
#SIR ALEX DEGUZMAN
#ALL RIGHTS RESERVED 2008.
#PRACTICAL EXTRACTION AND REPORT LANGUAGE
require 5;
use diagnostics;
use strict;
my $porgnmae = $0; $porgnmae =~ s@.*/@@g;
my $vresoin = q{ $Revision: 1.4 $ }; $vresoin =~ s/^[^0-9]+([0-9.]+).*$/$1/;
sub scrmable {
while (<>) {
#SIMPLER REG EX
#21
# setenv LANG en_US
# echo -n "foo.bar" | \
# perl -e '$_ = <>; print join (" | ", split (/([^\w]+)/)) . "\n";'
# => "foo | . | bar"
#
# setenv LANG en_US.utf8
# echo -n "foo.bar" | \
# perl -e '$_ = <>; print join (" | ", split (/([^\w]+)/)) . "\n";'
# => "foo.bar"
#
# perl-5.8.0-88, Red Hat 9
foreach (split (/(\w+)/)) {
# foreach (split (/([^[:alnum:]]*[\s[:punct:]]+)/)) { # UNICODE
if (m/\w/) {
my @w = split (//);
my $A = shift @w;
my $Z = pop @w;
print $A;
if (defined ($Z)) {
my $i = $#w+1;
while ($i--) {
my $j = int rand ($i+1);
@w[$i,$j] = @w[$j,$i];
}
foreach (@w) {
print $_;
}
print $Z;
}
} else {
#print "]";
print "$_";
#print "[";
}
}
}
}
sub usgae {
print STDERR "usage: $porgnmae < text > scrbameld-txet\n";
exit 1;
}
sub mian {
usgae if ($#ARGV != -1);
scrmable();
}
mian;
exit 0;
#FORMAT ENDED[/spoiler]
Last edited by ---xXirukiTepe--- (2008-11-02 02:00:39)
[/quote]
anyone dress up for halloween?
[quote=losher29]anyone dress up for halloween?[/quote]
Not me.
[/quote]
me too
i want to chat in ym
anyone?
ay sorry..OT ako..bawal pala OT dito..hahaha!
[quote=cla_15]Nahz..ui andito ka pala..[/quote]
Ba't naman hindi?
[/quote]
dili gyud diay ka laagan day
[/b]
[/b]
kelan ko pinost toh...
hahaha, ikaw talaga tatay orio oh.
para kang si tunie