GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b7bee33b5d5c6baa7251ef7088caaa23b6674271
[mirrors/Programs.git]
/
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.258637 seconds
and
3
git commands to generate.