003
13.11.2006, 16:38 Uhr
J-jayz-Z
Perl Crack ala Carte (Operator)
|
evtl würde ich das etwas portabler machen ... Das könnte mit find und substr ganz gut gehen.
C++: |
#include <iostream> #include <conio.h> #include <string>
std::string getMonthByDateString(char, char, std::string);
int main(const int argc, const char* argv[]) { std::string s = "12.Feb 1999"; std::cout << getMonthByDateString('.', ' ', s) << std::endl; getche(); return EXIT_SUCCESS; }
std::string getMonthByDateString(char first, char second, std::string s) { return s.substr(s.find_first_of(first)+1, s.find_first_of(second)-2); }
|
-- perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="66756e2d736f66742e6465"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"' Dieser Post wurde am 13.11.2006 um 16:39 Uhr von J-jayz-Z editiert. |