Register a SA Forums Account here!
JOINING THE SA FORUMS WILL REMOVE THIS BIG AD, THE ANNOYING UNDERLINED ADS, AND STUPID INTERSTITIAL ADS!!!

You can: log in, read the tech support FAQ, or request your lost password. This dumb message (and those ads) will appear on every screen until you register! Get rid of this crap by registering your own SA Forums Account and joining roughly 150,000 Goons, for the one-time price of $9.95! We charge money because it costs us money per month for bills, and since we don't believe in showing ads to our users, we try to make the money back through forum registrations.
The Something Awful Forums > Discussion > Serious Hardware/Software Crap > The Cavern of COBOL > I still fucking love Perl
 
  • Post
  • Reply
shoeberto
Jun 13, 2020

which way to the MACHINES?

Hughmoris posted:

Rookie perl question:

Given a string like '192.168.0.1:21,22,80,445,1432,30220' what would be a slick perl way to check if port 22 is in that string?

I can write it the naive way but I'm curious about a short-hand way to do it.

iirc perl has regex support, might try that

* # ¿ Apr 15, 2024 03:44
  • Quote
Adbot
ADBOT LOVES YOU

# ¿ May 12, 2024 08:08
  • Quote
shoeberto
Jun 13, 2020

which way to the MACHINES?

Pablo Bluth posted:

While the concept and implementation of regexp predates perl, the advanced form of regexp that we all know and love arose in perl. I doubt there will be another language where regexpes will be quite so central to a language's identity.

Jokes on you, I was being a gigantic dumbass. .. on PURPOSE!!

But yeah sorry I just assumed OP would have had experience to write an appropriate regex. The other post nailed it.

* # ¿ Apr 15, 2024 14:05
  • Quote
shoeberto
Jun 13, 2020

which way to the MACHINES?
 In the interest of being helpful, I really like iterating on regexes here: https://regex101.com/

* # ¿ Apr 15, 2024 14:06
  • Quote
  • 1
  • 2
  • 3
  • 4
  • 5
  • Post
  • Reply
The Something Awful Forums > Discussion > Serious Hardware/Software Crap > The Cavern of COBOL > I still fucking love Perl