GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
added _* to .gitignore
[mirrors/Programs.git]
/
perl
/
crawler
/
r.pl
1
#!/usr/bin/env perl
2
use
strict
;
3
use
warnings
;
4
5
package
WebCrawler
;
6
7
sub
uniq
(
\@
) {
8
my
(
$i
) =
@_
;
9
my
%h
;
10
@h
{
@
$i
} = ();
11
@
$i
=
keys
%h
;
12
return
(
@
$i
);
13
}
14
15
sub
unique
(
\@
) {
16
my
(
$i
) =
@_
;
17
my
%h
;
18
@
$i
=
grep
(!
$h
{
$_
}++,
@
$i
);
19
return
(
@
$i
);
20
}
21
22
my
@b
=
qw(b b c c c a a d)
;
23
print
"
@b
\n
"
;
24
unique
(
@b
);
25
print
"
@b
\n
"
;
This page took
0.360258 seconds
and
4
git commands to generate.