mirror of
https://github.com/NixOS/nix
synced 2025-07-07 18:31:49 +02:00
commit
876f676d90
1 changed files with 8 additions and 3 deletions
|
@ -242,16 +242,21 @@ print(t)
|
||||||
```
|
```
|
||||||
|
|
||||||
Similarly, the following is a Perl script that specifies that it
|
Similarly, the following is a Perl script that specifies that it
|
||||||
requires Perl and the `HTML::TokeParser::Simple` and `LWP` packages:
|
requires Perl and the `HTML::TokeParser::Simple`, `LWP` and
|
||||||
|
`LWP::Protocol::Https` packages:
|
||||||
|
|
||||||
```perl
|
```perl
|
||||||
#! /usr/bin/env nix-shell
|
#! /usr/bin/env nix-shell
|
||||||
#! nix-shell -i perl --packages perl perlPackages.HTMLTokeParserSimple perlPackages.LWP
|
#! nix-shell -i perl
|
||||||
|
#! nix-shell --packages perl
|
||||||
|
#! nix-shell --packages perlPackages.HTMLTokeParserSimple
|
||||||
|
#! nix-shell --packages perlPackages.LWP
|
||||||
|
#! nix-shell --packages perlPackages.LWPProtocolHttps
|
||||||
|
|
||||||
use HTML::TokeParser::Simple;
|
use HTML::TokeParser::Simple;
|
||||||
|
|
||||||
# Fetch nixos.org and print all hrefs.
|
# Fetch nixos.org and print all hrefs.
|
||||||
my $p = HTML::TokeParser::Simple->new(url => 'http://nixos.org/');
|
my $p = HTML::TokeParser::Simple->new(url => 'https://nixos.org/');
|
||||||
|
|
||||||
while (my $token = $p->get_tag("a")) {
|
while (my $token = $p->get_tag("a")) {
|
||||||
my $href = $token->get_attr("href");
|
my $href = $token->get_attr("href");
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue