SPUG: Dup'ing STDIN from DATA?

[Tim Gim Yee]

On Thu, 15 Mar 2001, Tim Maher/CONSULTIX wrote:

> I'm writing a little program that will eventually read input from
> SDTIN, but initially I want to test it using the DATA filehandle.
> I thought the following would work, but it doesn't; it just reads from
> STDIN.  Anybody know the way to accomplish this?
> 
> #! /usr/bin/perl -wn
> 
> BEGIN {
> 	open STDIN, "<&DATA";	# comment-out after testing
> }

Reading from <>, maybe you want to dup ARGV instead of STDIN.

    BEGIN { @ARGV = '<&DATA' }

> s/^(.*?:)//;
> defined $1  and  print "Extracted $1\n";
> 
> __DATA__
> Data: right here


-- 
Tim Gim Yee
tgy at chocobo.org



 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
      Subscriptions; Email to majordomo at pm.org:  ACTION  LIST  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
 For daily traffic, use spug-list for LIST ;  for weekly, spug-list-digest
  Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/