Hi Denham,
The regex in the conditional statment in the foreach loop is
incorrect:
<yourcode>
if ($_ =~ /w.*/){
print ADDS $_};
}
</yourcode>
<correctcode>
if ($_ =~ /w*/){ # the dot (.) is incorrect in this regex
print ADDS $_};
}
</correctcode>
Moreover, I suggest any changes in your code. See the code
below:
<suggestcode>
#!perl -w
use strict;
open (SITES, 'K:/Denham/DataFix/ stakeholderlabel s.txt') ||
die "Can
not Open alrtlogs.txt: $!";
open (ADDS, '>K:/Denham/ Datafix/test. txt') || die
"Can not Open file: $!";
my $address = '';
while (<DATA>) {
chomp;
if ($_ =~ /w+/) {
$address .= "$_;";
}
else {
if ($address ne '') {
print ADDS "$addressn";
$address = '';
}
}
}
close SITES;
close ADDS;
</suggestcode>
HTH.
perl -e '$_="tMM naaCt
Feocmama_itpUilucoGa";$_.=$1,print $2 while
s/(..)(.)//;print substr$_,1,1;'
"...just because I don't know the meaning of my art,
does not mean it has no meaning..." S.D.
----- Mensagem original ----
De: Denham Eva <denhameva gmail.com>
Para: perl-beginner@yahoogroups.com
Enviadas: Sexta-feira, 16 de Fevereiro de 2007 6:18:17
Assunto: [PBML] Please help with String Manipulation issue
Hello Everyone,
I am trying to sort a texted file supplied.
The content is as follows..
------------ -----Begin File Example----- --------- ------
The Executive Director
The Farmer
PO Box 8051
Townname
1000
The Director
Kitty Veterinary Services
Private Bag X2
Waterfall
2023
------------ -------Example End--------- ---------
The output I am trying to achive is.
------------ -------Example Output------ --------
The Executive Director;The Farmer;PO Box 8051;Townname;
1000
The Director;Kitty Veterinary Services;Private Bag
X2;Waterfall; 2023
------------ -------Example Output End--------
I have tried just to get rid of the empty lines, but
withoutr success.
Here is my code:
------------ ---Code Begin------- -------
#!/usr/bin/perl -w
use strict;
open (SITES, 'K:/Denham/DataFix/ stakeholderlabel s.txt') ||
die "Can
not Open alrtlogs.txt: $!";
open (ADDS, '>K:/Denham/ Datafix/test. txt') || die
"Can not Open file: $!";
my addresses;
while (<SITES>) {
chomp;
# push addresses, $_ if /^w+/||/^s+w+ /;
# print ADDS $_;
foreach($_){
if ($_ =~ /w.*/){
print ADDS $_};
}
}
close SITES;
close ADDS;
------------ --------- --------End Code-------- ---------
--
Please can anyone help how this should look.
I am really confused at present.
Regards
Denham.
<!--
#ygrp-mlmsg
{font-size:13px;font-family:arial,helvetica,clean,sans-serif
;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99%
arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
-->
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.ya
hoo.com/
[Non-text portions of this message have been removed]
Unsubscribing info is here: h
ttp://help.yahoo.com/help/us/groups/groups-32.html
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://g
roups.yahoo.com/group/perl-beginner/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http
://groups.yahoo.com/group/perl-beginner/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:perl-beginner-digest@yahoogroups.com
mailto:perl-beginner-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
perl-beginner-unsubscribe@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.c
om/info/terms/
|
(2) if you THINK you want to help, please RUN YOUR CODE
first
and make sure that the code works. Or even show it to
your co-workers
and let them give you a code review.
We don't need WRONG answers posted here. Please don't do
that. It
just makes it harder for everyone. The time I spent writing
this
correction could have been spent answering the original
question.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. -
+1 503 777 0095
<merlyn