substr problem

Expand Post »

I'm having a problem with the substr function. I want it to be dynamic in a for loop as follows:

perl Syntax (Toggle Plain Text)
for ($i = substr $bin, $sub, 1 ; $sub < $len2 ; $sub++){
for ($i = substr $bin, $sub, 1 ; $sub < $len2 ; $sub++){

You can probably guess what this code is meant to do. I want to read each character in the string separately and operate on it in the for loop. The problem is that this code doesn't do what I want it to do. Is there a way to use substr for this? Is there a better way to do what I'm trying to do, possibly without substr? Thanks in advance for any help.

Similar Threads

substr problem in C++
image verification problem in PHP
csv problem in C++
Serious problem here.. Warning: mysql_query(): 2 is not a valid............ in MySQL
Preview Upload Image Problem in PHP

orwell84

Reputation Points: 17

Solved Threads: 5

Junior Poster

Offline

100 posts
since Nov 2008

Permalink

Apr 18th, 2009

Re: substr problem

use split instead:

Perl Syntax (Toggle Plain Text)
my $var = 'abcdefghijklmnop';
my @chars = split(//,$var);
foreach my $char (@chars) {
   #do something with $char
}
my $var = 'abcdefghijklmnop';
my @chars = split(//,$var);
foreach my $char (@chars) {
   #do something with $char
}

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Apr 25th, 2009

Re: substr problem

Thanks, that worked. I was making a binary to decimal converter. Here's the code if anyone's interested:

perl Syntax (Toggle Plain Text)
#!usr/bin/perl -w
 
print "Binary number: \n";
$bin = <STDIN>;
chomp $bin;
$dec = 0;
$exp = (length($bin)) - 1;
@bin = split(//,$bin);
chomp @bin;
 
foreach $bit (@bin){
	$dec += $bit * (2 ** $exp);
	$exp--;
	}
print "$dec\n";
#!usr/bin/perl -w

print "Binary number: \n";
$bin = <STDIN>;
chomp $bin;
$dec = 0;
$exp = (length($bin)) - 1;
@bin = split(//,$bin);
chomp @bin;

foreach $bit (@bin){
	$dec += $bit * (2 ** $exp);
	$exp--;
	}
print "$dec\n";

orwell84

Reputation Points: 17

Solved Threads: 5

Junior Poster

Offline

100 posts
since Nov 2008

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: Using this perl code behind a router: this one is definitely a puzzle

Next Thread in Perl Forum Timeline: New to Perl HELP.

DaniWeb Message

Cancel Changes

User Name
Password