use Perl

• Similar to what I have (Score:1)

  by Aristotle (5147)

  Nine is quite a bit more elaborate though. Notable differences:

  sysopen my $fh, $fn, O_WRONLY | O_EXCL | O_CREAT
      or die "Couldn't open $fn for writing: $!\n";

  so I don't get stuff inadvertantly overwritten. Also,

  for( $msg->parts ) {
      my $fn = $_->filename;
      next if not defined $fn;
      # ...
  }

  so I don't have to look at MIME types that way only seemed to lead to madness. (What're you passing a parameter to ->filename() for btw?)

  Other reaso
  • Re:Similar to what I have (Score:2)

    by davorg (18) <dave@dave.org.uk> on 2004.11.02 16:32 (#35711) Homepage Journal

    What're you passing a parameter to ->filename() for btw?

    The docs say 'Normally it will return the filename from the headers, but if filename is passed a true parameter, it will generate an appropriate "stable" filename if one is not found in the MIME headers.' So it's a safety feature. It invents a filename if one isn't already given.

    Reply to This

    Parent

    • Re:Similar to what I have (Score:1)

      by Aristotle (5147)

      D'oh, I managed to miss that.