Mdthbs

Why does the hash of infinity have the digits of π?

What does ${!#} mean in Shell scripting?

Is there a simple example that empirical evidence is misleading?

Count rotary dial pulses in a phone number (including letters)

Why would Ryanair allow me to book this journey through a third party, but not through their own website?

How to reverse input order?

Efficient Algorithm for the boundary of a set of tiles

Defining the standard model of PA so that a space alien could understand

Dad jokes are fun

Is it rude to call a professor by their last name with no prefix in a non-academic setting?

Who is in charge of Wakanda?

Is the field of q-series 'dead'?

Best material to absorb as much light as possible

Is it legal to have an abortion in another state or abroad?

Which European Languages are not Indo-European?

NIntegrate doesn't evaluate

Can I summon an otherworldly creature with the Gate spell without knowing its true name?

Did 20% of US soldiers in Vietnam use heroin, 95% of whom quit afterwards?

Why did Jon Snow do this immoral act if he is so honorable?

Why isn't 'chemically-strengthened glass' made with potassium carbonate to begin with?

Why most published works in medical imaging try reducing false positives?

Need to read my home electrical meter

Python program to take in two strings and print the larger string

Is the Unsullied name meant to be ironic? How did it come to be?

Program for perl

Perl-Minimum & Maximum valuePerl Script ExplanationPerl confused with scriptAlias for perl scriptPeculiar error in perl Programlinux shell command in Perl programperl library getopts.plInstall program with Perl?BEGIN {…}; in PerlPerl program for unix

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ margin-bottom:0;
}

0

I get an error at the line stating $input =~ s/(^s+|s+$)//g; Could anyone explain whats wrong with it?

the goal of the program is to input 3 numbers that equate to the sides of a triangle. The program checks if the 3 numbers are able to make a triangle (a^2 + b^2 >=< c^2) and then also checks the sides make equilateral or isosceles or scalene. I keep getting this error message as soon as i run it.

"./triangletype.pl Scalar found where operator expected at ./triangletype.pl line 21, near "$input $input" (Missing operator before $input?) syntax error at ./triangletype.pl line 21, near "$input $input " Execution of ./triangletype.pl aborted due to compilation errors."

any help would be appreciated.

'#!/usr/bin/perl'

my $input;

my @triangleSides;

my $triangleLength = 0;

my $isTriangle = 0;

my $rao;

my $same = 0;

my $triType;

while ($triangleLength != 3) {

print "Enter the sides of the trianglen";

$input = <STDIN>;

chomp $input

$input =~ s/(^s+|s+$)//g;



@triangleSides = split(' ', $input);

$triangleLength = scalar @triangleSides;

}

my $a = $triangleSides[0];

my $b = $triangleSides[1];

my $c = $triangleSides[2];

if ($a + $b > $c && $a + $c > $b && $b + $c > $a) {

print "this is a valid trianglen";



$isTriangle = 1;

}else{

print "This is not a valid triangle!n";



exit;

}

if ($isTriangle) {
my $a2 = $a ** 2;
my $b2 = $b ** 2;
my $c2 = $c ** 2;

if ($a2 + $b2 == $c2) {

    $rao = "right";

}if ($a2 + $b2 > $c2) {

    $rao = "acute";

}if ($a2 + $b2 < $c2) {

    $rap = "obtuse";

}



if ($a eq $b) {

    $same++;

}if ($a eq $c) {

    $same++;

}if ($b eq $c) {

    $same++;

}



if ($same == 3) {

    $triType = "equilateral";

}if ($same == 2) {

    $triType = "isosceles";

}if ($same == 0) {

    $triType = "scalene";

}



print "@triangleSides are the sides of a $rao $triType triangles.n";

}

perl

share|improve this question

asked 52 mins ago

Hank Hank

1

New contributor

Hank is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  You are missing a semicolon after chomp $input. There may be other errors.
  
  – steeldriver
  40 mins ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  steeldriver you are an angel idk how i missed that thank you so much. It's been a long day. Works perfectly now!
  
  – Hank
  29 mins ago
  
  
  

  
  
  
  

add a comment | 

0

I get an error at the line stating $input =~ s/(^s+|s+$)//g; Could anyone explain whats wrong with it?

the goal of the program is to input 3 numbers that equate to the sides of a triangle. The program checks if the 3 numbers are able to make a triangle (a^2 + b^2 >=< c^2) and then also checks the sides make equilateral or isosceles or scalene. I keep getting this error message as soon as i run it.

"./triangletype.pl Scalar found where operator expected at ./triangletype.pl line 21, near "$input $input" (Missing operator before $input?) syntax error at ./triangletype.pl line 21, near "$input $input " Execution of ./triangletype.pl aborted due to compilation errors."

any help would be appreciated.

'#!/usr/bin/perl'

my $input;

my @triangleSides;

my $triangleLength = 0;

my $isTriangle = 0;

my $rao;

my $same = 0;

my $triType;

while ($triangleLength != 3) {

print "Enter the sides of the trianglen";

$input = <STDIN>;

chomp $input

$input =~ s/(^s+|s+$)//g;



@triangleSides = split(' ', $input);

$triangleLength = scalar @triangleSides;

}

my $a = $triangleSides[0];

my $b = $triangleSides[1];

my $c = $triangleSides[2];

if ($a + $b > $c && $a + $c > $b && $b + $c > $a) {

print "this is a valid trianglen";



$isTriangle = 1;

}else{

print "This is not a valid triangle!n";



exit;

}

if ($isTriangle) {
my $a2 = $a ** 2;
my $b2 = $b ** 2;
my $c2 = $c ** 2;

if ($a2 + $b2 == $c2) {

    $rao = "right";

}if ($a2 + $b2 > $c2) {

    $rao = "acute";

}if ($a2 + $b2 < $c2) {

    $rap = "obtuse";

}



if ($a eq $b) {

    $same++;

}if ($a eq $c) {

    $same++;

}if ($b eq $c) {

    $same++;

}



if ($same == 3) {

    $triType = "equilateral";

}if ($same == 2) {

    $triType = "isosceles";

}if ($same == 0) {

    $triType = "scalene";

}



print "@triangleSides are the sides of a $rao $triType triangles.n";

}

perl

share|improve this question

asked 52 mins ago

Hank Hank

1

New contributor

Hank is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  You are missing a semicolon after chomp $input. There may be other errors.
  
  – steeldriver
  40 mins ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  steeldriver you are an angel idk how i missed that thank you so much. It's been a long day. Works perfectly now!
  
  – Hank
  29 mins ago
  
  
  

  
  
  
  

add a comment | 

I get an error at the line stating $input =~ s/(^s+|s+$)//g; Could anyone explain whats wrong with it?

the goal of the program is to input 3 numbers that equate to the sides of a triangle. The program checks if the 3 numbers are able to make a triangle (a^2 + b^2 >=< c^2) and then also checks the sides make equilateral or isosceles or scalene. I keep getting this error message as soon as i run it.

"./triangletype.pl Scalar found where operator expected at ./triangletype.pl line 21, near "$input $input" (Missing operator before $input?) syntax error at ./triangletype.pl line 21, near "$input $input " Execution of ./triangletype.pl aborted due to compilation errors."

any help would be appreciated.

'#!/usr/bin/perl'

my $input;

my @triangleSides;

my $triangleLength = 0;

my $isTriangle = 0;

my $rao;

my $same = 0;

my $triType;

while ($triangleLength != 3) {

print "Enter the sides of the trianglen";

$input = <STDIN>;

chomp $input

$input =~ s/(^s+|s+$)//g;



@triangleSides = split(' ', $input);

$triangleLength = scalar @triangleSides;

}

my $a = $triangleSides[0];

my $b = $triangleSides[1];

my $c = $triangleSides[2];

if ($a + $b > $c && $a + $c > $b && $b + $c > $a) {

print "this is a valid trianglen";



$isTriangle = 1;

}else{

print "This is not a valid triangle!n";



exit;

}

if ($isTriangle) {
my $a2 = $a ** 2;
my $b2 = $b ** 2;
my $c2 = $c ** 2;

if ($a2 + $b2 == $c2) {

    $rao = "right";

}if ($a2 + $b2 > $c2) {

    $rao = "acute";

}if ($a2 + $b2 < $c2) {

    $rap = "obtuse";

}



if ($a eq $b) {

    $same++;

}if ($a eq $c) {

    $same++;

}if ($b eq $c) {

    $same++;

}



if ($same == 3) {

    $triType = "equilateral";

}if ($same == 2) {

    $triType = "isosceles";

}if ($same == 0) {

    $triType = "scalene";

}



print "@triangleSides are the sides of a $rao $triType triangles.n";

}

perl

share|improve this question

asked 52 mins ago

Hank Hank

1

New contributor

Hank is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

print "Enter the sides of the trianglen";

$input = <STDIN>;

chomp $input

$input =~ s/(^s+|s+$)//g;



@triangleSides = split(' ', $input);

$triangleLength = scalar @triangleSides;

print "this is a valid trianglen";



$isTriangle = 1;

print "This is not a valid triangle!n";



exit;

if ($a2 + $b2 == $c2) {

    $rao = "right";

}if ($a2 + $b2 > $c2) {

    $rao = "acute";

}if ($a2 + $b2 < $c2) {

    $rap = "obtuse";

}



if ($a eq $b) {

    $same++;

}if ($a eq $c) {

    $same++;

}if ($b eq $c) {

    $same++;

}



if ($same == 3) {

    $triType = "equilateral";

}if ($same == 2) {

    $triType = "isosceles";

}if ($same == 0) {

    $triType = "scalene";

}



print "@triangleSides are the sides of a $rao $triType triangles.n";

share|improve this question

asked 52 mins ago

Hank Hank

1

New contributor

Hank is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

share|improve this question

asked 52 mins ago

Hank Hank

1

New contributor

Hank is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

asked 52 mins ago

Hank Hank

1

New contributor

Hank is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

asked 52 mins ago

Hank Hank

1