Re: Re: Serving many tarballs as part of your web space

The code I write for columns has far too few comments, because the comments are provided in the accompanying text. I think you'll see that it makes sense once you see the narrative I wrote for that particularly odd piece of code. I think I was trying to hard to be line-wise efficient.

-- Randal L. Schwartz, Perl hacker

Comment on Re: Re: Serving many tarballs as part of your web space

Replies are listed 'Best First'.
Re^3: Serving many tarballs as part of your web space by Aristotle (Chancellor) on Jan 11, 2002 at 18:59 UTC
Figured so. After sleeping over it, I'm wondering if there's any particular reason you didn't something along the following lines? `my ($prefix, $filepath) = split '/', $path, 2; # ... @names = grep m!\A/?\Q$filepath\E(?:/.*)?\z!s, @names; if(@names == 1) { require Archive::Tar; # ... exit 0 } { my %choices = (); # ...` [download] The sole really significant difference I can see is that it doesn't catch the `"trailing stuff after name"` case. Am I missing something? Or should I just be patient and wait for the column? `:-)`	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Serving many tarballs as part of your web space
by Aristotle (Chancellor) on Jan 11, 2002 at 18:59 UTC

Figured so.

After sleeping over it, I'm wondering if there's any particular reason you didn't something along the following lines?

my ($prefix, $filepath) = split '/', $path, 2;

# ...

  @names = grep m!\A/?\Q$filepath\E(?:/.*)?\z!s, @names;

  if(@names == 1) {
    require Archive::Tar;
    # ...
    exit 0
  }

  {
    my %choices = ();
    # ...
[download]

The sole really significant difference I can see is that it doesn't catch the "trailing stuff after name" case. Am I missing something?

Or should I just be patient and wait for the column? :-)

[reply]
[d/l]