Hi<br><br>I wonder if anybody know how to read a file character by character? And then check the character each time. <br><br>And if anybody knows how to delete everything in a file after or before a special charcter (like . or /)<br><br>I guess these are stupid questions but I'm new to this. So please excuse me.<br><br>Sincerly <br>Oddgeir
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
reading one and one char in a file
- Thread starter Oddgeir
- Start date
one approach......<br><br><br><FONT FACE=monospace><br>#!perl<br>$inFile = 'temp.txt';<br>open(IPF,"<$inFile"
¦¦ die "Failed to open IPF, $!\n";<br>while (<IPF> { $buffer .= $_; } <font color=red># catch the entire file in $buffer </font><br>close IPF;<br><br><font color=red># a period or dot is a regex wild card<br># the 'g' on the end says match globally, not just once<br># the 's' on the end says treat new line chars like any other</font><br>while ($buffer =~ /./gs) <br> {<br> $beforeMatch = $`; <font color=red> # catch everything before the current char.</font><br> $afterMatch = $'; <font color=red> # catch everthing after the current char.</font><br> $thisChar = $&; <font color=red> # catch the current character.<br> # put whatever condition-behavior you want here.</font><br> last if ($thisChar eq 5); <br> print "$thisChar\n";<br> }<br></font><br><br>'hope this helps.... <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo
¦¦ die "Failed to open IPF, $!\n";<br>while (<IPF> { $buffer .= $_; } <font color=red># catch the entire file in $buffer </font><br>close IPF;<br><br><font color=red># a period or dot is a regex wild card<br># the 'g' on the end says match globally, not just once<br># the 's' on the end says treat new line chars like any other</font><br>while ($buffer =~ /./gs) <br> {<br> $beforeMatch = $`; <font color=red> # catch everything before the current char.</font><br> $afterMatch = $'; <font color=red> # catch everthing after the current char.</font><br> $thisChar = $&; <font color=red> # catch the current character.<br> # put whatever condition-behavior you want here.</font><br> last if ($thisChar eq 5); <br> print "$thisChar\n";<br> }<br></font><br><br>'hope this helps.... <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo- Thread starter
- #3
- Status
Similar threads
