Re^5: writing a pragma

Replies are listed 'Best First'.
Re^6: writing a pragma by karthikasasanka (Acolyte) on Apr 27, 2014 at 09:16 UTC
I want to write a pragma, which reads the contents of file where it is imported. 1. use mypragma; 2. use Data::Dumper; 3. my $hash = {1,2,3,4,5,6} 4. print Dumper $hash; I want to get the lines from 2,3,4 into the mypragma which was loaded into memory for this program. I am not sure that this is possible, I just want to try.	[reply]
Re^7: writing a pragma by Anonymous Monk on Apr 27, 2014 at 10:28 UTC
sure its possible, but such a thing shouldn't be a pragma :) see caller and open and import and splice and zentara package/module tutorial.... `use NotAPragma; ...` [download] NotAPragma.pm `package NotAPragma; sub import { my ($package, $filename, $line) = caller; open my($infh), '<:raw', $filename or die "Can't open caller $filename : $!"; my @lines = ( 'pad', readline $infh ); close $infh; splice @lines, 0, $line; print "@lines\n"; ## << this is the ... after use NotAPragma; } 1;` [download]	[reply] [d/l] [select]
Re^8: writing a pragma by karthikasasanka (Acolyte) on Apr 28, 2014 at 09:17 UTC
Thank you the solution. can you please explain y it should not be pragma. does it affect anything if we write it as pragma.	[reply]
Re^9: writing a pragma by Anonymous Monk on Apr 28, 2014 at 09:53 UTC
Re^10: writing a pragma by karthikasasanka (Acolyte) on May 06, 2014 at 05:01 UTC