mhx
Enthusiast
/ Moderator
Jul 27, 2001, 1:00 PM
Post #6 of 9
(686 views)
|
|
Re: Reading in Contents, then Formatting out: Importan
[In reply to]
|
Can't Post
|
|
Hi,
first, the code we posted were our actual Perl scripts that worked really fine. (I hope Jasmine won't mind that I'm talking in her name here, but I'm quite sure this is her tested script ;-) Of course you cannot upload my script and expect it to work, since it isn't laid out as a CGI script. It's laid out to run from the shell or command line.
Since this is the intermediate forum, I was a bit rare with explanation :) Actually, your problem doesn't seem to be that our code isn't working, but how you can embed our code in your script. But this should be quite easy with some basic Perl knowledge and even if you don't understand my code. (I hope you understood Jasmine's code, because her explanation was very good and accurate.)
Anyway, just to explain to you what my code does (so you know what it does not and can figure out how to extend the script), here comes the full script again, just a bit reformatted.
#!/bin/perl -w
use strict;
print map "$_->[3]$_->[0](/a)(br)\n".
"$_->[3]$_->[2](/a)(br)with $_->[1](br)(br)\n",
map [
grep !/^\s*$/,
split /(?:\r?\n)+/
],
grep !/^\s*$/,
split /_+/,
do {
local $/=undef;
<DATA>
};
__DATA__
_____________________________
John Doe
Silver Hair
Wednesday, September 19 at 8 PM
(a link is here)
______________________________
Mary Bonham
Blue House
Saturday, September 23 at 7:30 PM
(a link is here)
#!/bin/perl -w
use strict;
The important part, as you might just have figured out, is
print map "$_->[3]$_->[0](/a)(br)\n".
"$_->[3]$_->[2](/a)(br)with $_->[1](br)(br)\n",
map [
grep !/^\s*$/,
split /(?:\r?\n)+/
],
grep !/^\s*$/,
split /_+/,
do {
local $/=undef;
<DATA>
};
do {
local $/=undef;
<DATA>
};
open ADDRESS, 'address.txt' or die "cannot open address.txt: $!\n";
do {
local $/=undef;
<ADDRESS>
};
So the contents of the whole file are passed into the previous line of our script:
which will just split it by the long lines of underscores. /_+/ is the regular expression for one or more underscores, and that regex is used to separate the fields in the string that we just read in. The split function returns a list of all records. Since there was a blank line before the first record, that list would contain three elements, the first of which contains only whitespace characters. Since we don't want 'empty' records, the previous line filters these out:
This will only return those elements of the list that is passed in that do not only contain whitespace characters. The grep function evaluates !/^\s*$/ for each element of the list and 'greps' only those for which the expression is true. /^\s*$/ is a regex that checks if a string contains only whitespace characters. Since we want all elements for which this is not the case, we negate the regex matching result with a '!'.
Now, we want the fields in each record. This is done in the following block that is evaluated for each of our two remaining records due to the map function:
map [
grep !/^\s*$/,
split /(?:\r?\n)+/
],
grep !/^\s*$/,
split /(?:\r?\n)+/
['John Doe', 'Silver Hair', 'Wednesday, September 19 at 8 PM', '(a link is here)'],
['Mary Bonham', 'Blue House', 'Saturday, September 23 at 7:30 PM', '(a link is here)']
Now all that's left is to print that stuff out, and this is done by mapping each list element into a string and printing the list of strings returned by map:
print map "$_->[3]$_->[0](/a)(br)\n".
"$_->[3]$_->[2](/a)(br)with $_->[1](br)(br)\n",
BTW, your other post is just the same problem. No difference! You just have to replace the expression in the map function:
print map join('|', @$_)."\n",
print map join('|',
grep !/^\s*$/,
split /(?:\r?\n)+/
)."\n",
grep !/^\s*$/,
split /_+/,
do {
local $/=undef;
<DATA>
};
I hope all this helps.
-- Marcus 
s$$ab21b8d15c3d97bd6317286d$;$"=547269736;split'i',join$,,map{chr(($*+=
($">>=1)&1?-hex:hex)+0140)}/./g;$"=chr$";s;.;\u$&;for@_[0,2];print"@_," |
MAIN
SEARCH
WHO'S 
LOG 
I gotta learn to see if he's online before I even start trying to post ;)