Solved

Script Needed Urgent

Posted on 2011-03-06

Perl

1 solution

429 Views

Last Modified: 2012-05-11

simple script in a scripting language that prints the numbers from 1 to 100. But for multiples of three print "Site" instead of the number and for the multiples of five print "Host". For numbers which are multiples of both three and five print "SiteHost".

Comment

Question by:Reddy4U-Solaris

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

5 Comments

LVL 16

Accepted Solution

by:sjklein42

sjklein42 earned 500 total points

ID: 350534062011-03-06

for ($n=1; $n <= 100; $n++)
{
    if ( ( $n % 15 ) == 0 ) { print "SiteHost\n"; }
    elsif (( $n % 3 ) == 0 )  { print "Site\n"; }
    elsif (( $n % 5 ) == 0 )  { print "Host\n"; }
    else { print "$n\n"; }
}

Open in new window

c:\temp>perl foo.pl
1
2
Site
4
Host
Site
7
8
Site
Host
11
Site
13
14
SiteHost
16
17
Site
19
Host
Site
22
23
Site
Host
26
Site
28
29
SiteHost
31
32
Site
34
Host
Site
37
38
Site
Host
41
Site
43
44
SiteHost
46
47
Site
49
Host
Site
52
53
Site
Host
56
Site
58
59
SiteHost
61
62
Site
64
Host
Site
67
68
Site
Host
71
Site
73
74
SiteHost
76
77
Site
79
Host
Site
82
83
Site
Host
86
Site
88
89
SiteHost
91
92
Site
94
Host
Site
97
98
Site
Host

Open in new window

Author Comment

by:Reddy4U-Solaris

ID: 350534132011-03-06

thanks thats usefull can u tell me which scripting u r using

Author Closing Comment

by:Reddy4U-Solaris

ID: 350534142011-03-06

Excellent Response

LVL 16

Expert Comment

by:sjklein42

ID: 350534212011-03-06

That's PERL.

Thanks.

LVL 48

Expert Comment

by:Tintin

ID: 350549972011-03-07

bash version is virtually the same

#!/bin/bash
for i in $(seq 1 100)
do
  if [ $(($i%15)) -eq 0 ]
  then
     echo SiteHost
  elif [ $(($i%3)) -eq 0 ]
  then
     echo Site
  elif [ $(($i%5)) -eq 0 ]
  then
     echo Host
  else
     echo $i
  fi

don

Open in new window

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Email validation using Regular Expression in Perl

Article by: Sanjeev

Email validation in proper way is very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…

Perl

Using Perl to convert an Excel Workbook into a MongoDB, with each Worksheet converted into a separate MongoDB collection

Article by: arober11

A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads), installed and started the daemon, and had a console window open. After an hour or two of playing at the command …

Perl

Validation of Email Addresses with Regular Expressions

Video by: Terry

Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…